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The information in this manual is intended for programming-support customer 
engineers and programmers who require specific information about queued 
sequential access method (QSAM), basic sequential access method (BSAM), 
and basic partitioned access method (BPAM) routines. 


A general understanding of data management is prerequisite knowledge for 
understanding the information in this book. See OS/VS2 Data Management 
Services Guide, GC26-3875, for background information on data 
management. 


The manual is organized into the following sections: 


“—Introduction.”’ This section contains a brief description of the sequential 
access method (SAM) routines and a reference to Diagram A, Sequential 
Access Method—Overview. This diagram lists the macro statements used 
with SAM programming techniques and directs the reader to appropriate 

diagrams and figures in other parts of the manual. 


“Method of Operation.”” The SAM routines are described in the following 
categories: 


1. Queued sequential access method (QSAM) routines that cause storage 
and retrieval of data records arranged in sequential order. 


2. Basic sequential access method (BSAM) routines that cause storage and 
retrieval of data blocks arranged in sequential order. 


3. Basic partitioned access method (BPAM) routines that cause storage 
and retrieval of data blocks in a member of a partitioned data set. They 
can also construct entries and search for entries in the directory of a 
partitioned data set. 


4. Executors that operate with input/output support routines. 


5. Buffer-pool management routines that furnish buffer space in virtual 
storage. Figure numbers appear as a running head in this section. The 
running heads identify figures that list functionally related groups of 
modules, appendages, or executors. 


6. Problem Determination that assists the user in determining the causes of 
ABENDs by providing more information on the reason for the 
termination. 


7. SVC routines that provide Supervisor state operation for functions that 
cannot be done in the problem state or in the user’s key. 


8. Task Recovery Routines that provide explicit validity checking for SVC 
routines that experience program checks or other ABEND conditions. 


‘Program Organization and Flow of Control.” This section contains diagrams 
that describe the organization and flow of control of the SAM routines. 


“Directory.” The directory lists the names of the sequential access method 
modules in alphabetic order. Each entry contains the module name, type, 
CSECT name, SVC entry (if any), and references to figures and appendixes 
in other parts of the manual that contain information about the module. 


‘Data Areas.” This section shows how various control blocks are used in 
QSAM and BSAM. The access method save area for user totaling and the JES 
compatibility interface control block are also described. This section does not 
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describe in detail all fields of the system control blocks referred to in this 
manual. For information about system control blocks not included, see 


OS/VS2 Data Areas. g 


“Diagnostic Aids.’’ This section contains diagrams of control blocks and an 
ABEND codes cross-reference table. 


‘‘Appendixes.”’ These sections describe code conversion routines, 
BSAM/QSAM channel programs, update channel programs, chained 
scheduling channel programs, and BSAM channel programs. 


Prerequisite Reading 
For information about processing sequential and partitioned data sets: 


| e OS/VS2 Data Management Services Guide, GC26-3875 


Related Reading 


For specific information about the macro instructions required to process 
sequential and partitioned data sets: 


| ¢ OS/VS2 Data Management Macro Instructions, GC26-3873 
For specific information about Open, Close, and End-of-Volume routines: 
e OS/VS2 Open/Close/EOV Logic, SY26-3827 
For information about system control blocks: 
e OS/VS2 Data Areas, SYB8-0606 


e OS/VS2 System Programming Library: Debugging Handbook, J 
GC28-0632 


For information about the Job Entry Subsystem: 
e OS/VS2 JES2 Logic, SY28-0622 


For information about EXCP, EXCP appendages, DEVTYPE, DEBCHK, 
UCS images, FCB images, and IMGLIB: 


¢ OS/VS2 System Programming Library: Data Management, GC26-3830 


For information on the sequential access method routines used by the IBM 
1287 and 1288 Optical Character Readers: 


¢ OS Data Management Macro Logic for IBM 1285/1287/ 1288, 
GY21-0013 


For information on the sequential access method routines used by the IBM 
1419 Magnetic Character Reader: 


« OS BSAM Logic for IBM 1419/1275, GY21-0012 


For information about the IBM 3800 Printing Subsystem, character 
arrangement tables, writeable character generation modules, character sets, 
translate tables, graphic modification modules, copy modification modules, 
FCB images, and forms overlay negatives: ’ 


e IBM 3800 Printing Subsystem Programmer’s Guide, GC26-3846 
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For information about the sequential access method routines used by the IBM 
3886 Optical Character Reader: 


« OS/VS IBM 3886 Optical Character Reader Model | Logic, 
SY24-5162 


For information on system codes and messages: 

* OS/VS Message Library: VS2 System Messages, GC38-1002 

© OS/VS Message Library: VS2 System Codes, GC38-1008 

For information on I/O Supervisor routines: 

° OS/VS2 I/O Supervisor Logic, S¥Y26-3823 

For information on SAM and BPAM records written to SYS1.LOGREC: 
© OS/VS2 SYS1.LOGREC Error Recording Logic, SY28-0678 

For information on utilities used for problem determination and diagnosis: 
© OS/VS2 Service Aids Logic, SY28-0643 


For information on the sequential access method routines to support the IBM 
3890 Document Processor: 


¢ OS/VS Logic for IBM 3890 Document Processor, SY24-5163 
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SUMMARY OF AMENDMENTS 


November 1979 


OS/VS2 MVS 3800 Printing Subsystem Enhancements 


z This programming enhancement, applicable to OS/VS2 MVS Release 3.8, 
supports new 3800 Printing Subsystem installed changes and improved 
software support: 


July 1979 


Device Support Enhancements 


Improved paper repositioning operator control 

Load command changes 

Enhanced SETPRT messages and return codes 
Support for paper jam and cancel key during SETPRT 


Common interface to user for schedule for print and setup of SYSOUT 
data sets 


User control of WCGM management 


Multiple extents for SYS1.IMAGELIB 


Provides a routine, invoked by a new system macro, TRKCALC, to perform 
track capacity calculations. Using this macro will allow track capacity 
algorithm independence. 


June 1979 


New Devices 


The IBM 3203 Printer, Model 5, is supported as a Model 4. 


OS/VS2 Data Management Support for Mass Storage 
System (MSS) Extensions Program Product 


New Programming Support 


MSS Extensions program product is supported with this programming 
support. 


August 1978 


This technical newsletter incorporates and replaces all previous SU 
information in this publication. 


New Devices 


IBM 3203 Printer, Model 4 
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INTRODUCTION 


Sequential access methods (SAM) are programming techniques for 
transferring data arranged in sequential order between virtual storage and an 
input/output device. This manual describes five groups of sequential access 
method routines. They are: 


e Queued sequential access method (QSAM) routines 
e Basic sequential access method (BSAM) routines 

e Basic partitioned access method (BPAM) routines 

e Sequential access method executors 

e Buffer-pool management routines 


A processing program using QSAM routines works with records. For input, 
QSAM routines turn the blocks of data of the channel programs into a stream 
of input records for the processing program; for output, QSAM routines 
collect the successive output records of the processing program into blocks of 
data to be written by channel programs. See Diagram F for information about 
the flow of control for QSAM routines. 


A processing program using BSAM routines works with blocks of data. For 
input, BSAM routines cause a channel program to read a block of data for the 
processing program; for output, BSAM routines cause a channel program to 
write a block of data for the processing program. BSAM routines are also 
used to read and write blocks of data for members of a partitioned data set. 
See Diagram G for flow of control information about BSAM routines. 


A processing program that uses BSAM or QSAM to access SYSIN or 
SYSOUT data sets invokes a special subset of SAM routines called SAM-SI 
(SAM Subsystem Interface). These routines operate as a compatibility 
interface to job entry subsystems, such as JES2, that control these data sets. 
See Diagram M in “‘Program Organization and Flow of Control” section for 
information about the flow of control in SAM-SI routines for BSAM and 
QSAM. 


A processing program using BPAM routines also works with blocks of data. 
For output, BPAM routines construct and cause writing of entries in the 
directory; for input, BPAM routines search for and read entries from the 
directory. To read and write the blocks of the members, a processing program 
uses the BSAM routines. Flow of control for the BPAM routines is shown in 
Diagram G. 


Sequential access method executors are modules that operate with the Open 
and Close routines. When a data control block is opened, an executor 
constructs control blocks and loads the access method routines. The access 
method routines reside in the link pack area. 


When the end of a data set or volume is reached, an EOV SVC is issued to 
process the pending input/output blocks. The executors described are: 


e Open executors 
e Close executors 


Buffer-pool management routines form buffers in virtual storage and return 
virtual storage space (for buffers no longer needed) to available status. A 
buffer-pool management routine is entered when a GETPOOL, BUILD, 
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GETBUF, FREEBUF, or FREEPOOL macro instruction is encountered in a 
program. 

The GETPOOL and Build routines both form a pool of buffers in virtual 
storage. However, the GETPOOL routine also obtains the virtual storage 
space for the buffer pool. Virtual storage space must be provided by the 
processing program when the Build routine is used. 


The GETBUF and FREEBUF routines handle individual buffers. GETBUF 
obtains a buffer from a buffer pool and FREEBUF returns a buffer to a 
buffer pool. 


The FREEPOOL routine returns the virtual-storage space used for a buffer 
pool. 


Diagram A in “Program Organization and Flow of Control” section lists the 
macro statements that are used with sequential access method programming 
techniques. The chart also refers to figures in other portions of the manual 
that describe the SAM routines, appendages, and executors associated with 
each macro statement. 


& 


METHOD OF OPERATION 


Queued Sequential Access Method Routines 


Get Routines 


Simple-Buffering Get Routines 


Queued sequential access method (QSAM) routines cause storage and 
retrieval of records and furnish buffering and blocking facilities. There are 
seven types of QSAM routines: 


e Get routines 
e Put routines 
e End-of-block routines 


e Synchronizing-and-error-processing routines (including the track-overflow 
and 3211 Printer retry asynchronous-error-processing routines) 


e Appendage routines 
e Control routines 
e SVC Routines 


Diagram F, QSAM Flow of Control, shows the relationship of QSAM 
routines to other portions of the operating system and the processing 
program. 


Get routines determine the address of the next input record by referring to 
the DCB. In update mode the next output record is the last input record. 


If the American National Standard Code for Information Interchange 
(ASCII) is used, the Get routine (providing it is specified in the DCB) will 
accept a record with a block prefix. The Get routines do not present the block 
prefix to the processing program. The block prefix is specified by the 
BUFOFF option in the DCB. For more information on block prefix and 
record formats for ASCII, see OS/VS Data Management Services Guide. 


The Get routine descriptions that follow are accordingly grouped as: 
e Simple-Buffering Get Routines 
e Update-Mode Get Routine 


Simple-buffering Get routines use buffers whose beginning and ending 
addresses are in the data control block (DCB). The beginning address is in 
the DCBRECAD field (address of the next record); the ending address is in 
the DCBEOBAD field (address of the end of the buffer). In each pass 
through a routine, it determines: 


e The address of the next record 
e Whether an input buffer is empty and ready to be scheduled for refilling 
e Whether a new full input buffer is needed 


If the records are unblocked, the address of the next record is always that of 
the next buffer. 


If the records are blocked, a Get routine determines the address of the next 
record by adding the length of the last record to the address of the last record. 
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The address of the last record is in the DCBRECAD field of the data control 
block (DCB). If the records are fixed-length blocked records, the length of 
each record is in the DCBLRECL field. If the records are variable-length 
blocked records, the length of each record is in the length field of the record 
itself. 


A Get routine determines whether a buffer is empty and ready for refilling 
and whether a new full buffer is needed by testing for an end-of-block (EOB) 
condition. 


When a buffer is empty, a Get routine passes control to an end-of-block 
routine to refill the buffer. The buffers are filled for the first time by Open 
executor IGG01911. Thus, the buffers are primed for the first entry into a 
Get routine. 


When a new full buffer is needed, a Get routine obtains it by passing control 
to the input-synchronizing-and-error-processing routine, module IGG019AQ. 
The synchronizing routine updates the DCBIOBA field, thus pointing to the 
new buffer, and returns control to the Get routine. A Get routine updates the 
DCBRECAD field by inserting in it the starting address of the buffer from 
the channel program associated with the new IOB. To update the 
DCBEOBAD field, a Get routine adds the actual length of the block read to 
the buffer starting address. These two fields, DCBRECAD and 
DCBEOBAD, define the available buffer. 


For unblocked records, an EOB condition exists after every entry into the 
Get routine. For blocked records, an EOB condition exists when the values in 
the DCBRECAD and DCBEOBAD fields are equal. In the move operating 
mode, the buffer can be scheduled for refilling as soon as the last record is 
moved out; thus, an EOB test is made after moving each record, so that the 
buffer can be scheduled for refilling as soon as possible. Another EOB test is 
made on the next entry to the routine to determine whether a new full buffer 
is needed. In the locate mode, the empty buffer is scheduled when the routine 
is entered, if the last record was presented in the preceding entry; thus, an 
EOB test is made on entry into the routine to determine whether a buffer is 
empty and ready for refilling and also whether a new full buffer is needed. 


When the processing program determines that the balance of the present 
buffer is to be ignored and the first record of the next buffer is desired, the 
processing program issues a RELSE macro instruction. Control passes to a 
RELSE routine which sets an EOB condition. When records are spanned, one 
or more blocks can be skipped to find the first record in a new block. 


The Open executor primes (that is, schedules for filling) the buffers if QSAM 
is used with a DCB opened for input, update, or readback. For the locate 
mode, all buffers except one are primed; for the move mode, all buffers are 
primed. The Open executor also sets an end-of-block condition; the first time 
that a Get routine gains control, it processes this condition in the usual way. 


Upon return from the synchronizing-and-error-processing routine, the Get 
routines, which may be loaded for tape data sets, tests to determine if the 
buffer contains a DOS checkpoint record. If a DOS checkpoint record is 
indicated, ECB posted X‘50’, the Get routine branches to the end-of-block 
routine to reschedule the buffer for refilling and then branches back to the 
synchronizing routine to test the next buffer. 


Figure 1 lists the simple buffering Get routines and the conditions that cause a 


particular routine to be used. The Open executor selects one of the routines, 
loads it, and puts its address into the DCBGET field. Figure 1 shows, for 


>) 


example, that when the Open parameter list specifies input and the DCB 
specifies the GET macro instruction, simple buffering, the locate mode, and 
the fixed-length record format, routine IGGO19AA is selected and loaded. 


Get Module IGG019AA: Module IGGO19AA presents the processing 
program with the address of the next fixed-length or undefined-length record. 
The Open executor selects and loads this module if the Open parameter list 
specifies: 


F Input 


Access Method Options Selections 

INPUT, Get X X X |X XK X |X X X X X |X X X 
RDBACK, Get X |X X xX 

Locate operating mode X X X X |X X xX 

Move operating mode X X XX |X X xX xX |X X 

Data operating mode X 
Fixed-length record format X X X XxX X 

Undefined-length record format X X X X X 

Variable-length or record format-D X X X X |X X 
Spanned records X %X |X xX 


* or DATA specified X 
on DD statement 


Card reader, only a single, buffer 
CNTRL X xX 


Character conversion for paper tape X 

Logical record interface X 

Get modules 

IGGO19AA AA AA 

IGG019AB AB 

IGGOI9AC AC AC 

IGG019AD AD 

IGGO19AG AG AG 

IGG019AM AM| AM 

IGGO19AN AN AN 

IGGOI9AT! AT 

IGG019BO BO 
IGGO019DJ DJ 
IGGO19FB FB 
IGG019FD FD 


IGG019FF FF 
1. This module also includes the character-conversion and synchronizing-and-error-processing routine for paper-tape devices. 
Figure 1. Module Selector—Simple Buffering Get Modules 
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and the DCB specifies: 
Get 
Simple buffering 
Locate operating mode 


Fixed-length (unblocked, blocked, or blocked standard) or 
undefined-length record format 


The module consists of a Get routine and a RELSE routine. 
The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It tests for an EOB condition to determine whether a buffer is empty and 
ready for refilling and if a new buffer is needed. When the Open executor 
primes the buffers, it schedules all buffers except one and sets an EOB 
condition. 


e If no EOB condition exists, the Get routine determines the address of the 
next record, and then presents the address to the processing program and 
returns control to the processing program. 


e If an EOB condition exists, the Get routine issues a BALR instruction to 
pass the present buffer to the end-of-block routine to be scheduled for 
refilling. The Get routine issues another BALR instruction to obtain a new 
full buffer through the input-synchronizing-and-error-processing routine, 
module IGG0O19AQ. The Get routine then presents the address of the first 
record of the new buffer to the processing program and returns control to 
the processing program. 


The RELSE routine causes an EOB condition by setting the DCBRECAD 
and DCBEOBAD fields so that they are equal; it then returns control to the 
processing program. 


Get Module IGG019AB: Module IGGO19AB presents the processing program 
with the address of the next variable-length or format-D record. The Open 
executor selects and loads this module if the Open parameter list specifies: 


Input 
and the DCB specifies: 

Get 

Simple buffering 

Locate operating mode 

Variable-length or record format-D (unblocked or blocked), unspanned 
The module consists of a Get routine and a RELSE routine. 
The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It determines the address of the next record and tests for an EOB 
condition to determine whether a buffer is empty and ready for refilling 
and if a new buffer is needed. When the Open executor primes the buffers, 
it schedules all buffers except one and sets an EOB condition. 
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e If no EOB condition exists, it presents the address of the next record to the 
processing program and returns control to the processing program. 


e If an EOB condition exists, it issues a BALR instruction to pass the present 
buffer to the end-of-block routine to be scheduled for refilling. The Get 
routine issues another BALR instruction to obtain a new buffer through 
the input-synchronizing-and-error-processing routine, module IGGO19AQ. 
The Get routine then presents the address of the first record of the new 
buffer to the processing program and returns control to the processing 
program. 


The RELSE routine causes an EOB condition by setting the DCBRECAD 
and DCBEOBAD fields so that they are equal; it then returns control to the 
processing program. 


Get Module IGG019AC: Module IGGO19AC moves the next fixed-length or 
undefined-length record to the work area. The Open executor selects and 
loads this module if the Open parameter list specifies: 


Input 

and the DCB specifies: 
Get 
Simple buffering 
Move operating mode 


Fixed-length (unblocked, blocked, or blocked standard) or 
undefined-length record format 


The DCB does not, however, specify the CNTRL macro instruction. The 
module consists of a Get routine and a RELSE routine. 


The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It tests for an EOB condition to determine whether a new full buffer is 
needed. When the Open executor primes the buffers, it sets this EOB 
condition for the first GET macro instruction. 


e If no EOB condition exists, the routine moves the next record to the work 
area. 


e If an EOB condition exists, the routine issues a BALR instruction to obtain 
a new buffer through the input-synchronizing-and-error-processing 
routine, module IGG019AQ, and moves the first record of the new buffer 
to the work area. 


e It tests for a new EOB condition to determine whether a buffer is empty 
and ready for refilling. For unblocked records, this condition exists at every 
entry into the routine. 


e If no new EOB condition exists, the routine returns control to the 
processing program. 


e If anew EOB condition exists, the routine issues a BALR instruction to 
pass the present buffer to the end-of-block routine to be scheduled for 
refilling and returns control to the processing program. 
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The RELSE routine sets a bit in the DCB so that the Get routine passes the 
buffer for refilling and obtains a new full buffer the next time the routine is 
entered. 


Get Module IGG019AD: Module IGGO19AD moves the next variable-length 
or format-D record to the work area. The Open executor selects and loads 
this module if the Open parameter list specifies: 


Input 
and the DCB specifies: 
Get 
Simple buffering 
Move operating mode 
Variable-length or record format-D (unblocked or blocked), unspanned 


The DCB does not, however, specify the CNTRL macro instruction. The 
module consists of a Get and a RELSE routine. 


The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It tests for an EOB condition to determine whether a new full buffer is 
needed. When the Open executor primes the buffers, it also sets an 
end-of-block condition for the first GET macro instruction. 


e If an EOB condition exists, the routine issues a BALR instruction to obtain 
a new buffer through the input-synchronizing-and-error-processing 
routine, module IGGO19AQ, and moves the first record to the work area. 


e If no EOB condition exists, the routine moves the next record to the work 
area. 


e It tests for a new EOB condition to determine whether a buffer is empty 
and ready for refilling. For unblocked records, the condition exists after 
every entry to this routine. 


e If no new EOB condition exists, the routine returns control to the 
processing program. 


e If anew EOB condition exists, the routine issues a BALR instruction to 
pass the present buffer to the end-of-block routine to be scheduled for 
refilling and returns control to the processing program. 


The RELSE routine sets a bit in the DCB so that the Get routine passes the 
buffer for refilling and obtains a new full buffer the next time the routine is 
entered. 
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Get Module IGG019AG (CNTRL—Card Reader): Module IGGO19AG moves 
the next fixed-length or undefined-length record to the work area without 
scheduling the buffer for refilling. To refill the buffer, the processing program 
issues a CNTRL macro instruction. The Open executor selects and loads this 
module if the Open parameter list specifies: 


Input 

and the DCB specifies: 
Get 
Simple buffering 
Move operating mode 


Fixed-length (unblocked, blocked, or blocked standard) or 
undefined-length record format 


CNTRL (card reader) 
The module consists of a Get routine and a RELSE routine. 
The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e If an EOB condition exists, it resets the DCBRECAD and DCBEOBAD 
fields for the new buffer, issues a BALR to the input-synchronizing— 
and-error-processing routine, module IGGO19AQ, and then tests for 
blocked records. 


e If no EOB condition exists, it tests immediately for blocked records. 


e For blocked records, it updates the DCBRECAD field, moves the present 
record to the work area, and returns control to the processing program. 


e For unblocked records, it sets the DCBRECAD and DCBEOBAD fields so 
that they are equal, moves the present record to the work area, and returns 
control to the processing program. 


The RELSE routine sets the value of the DCBEOBAD field equal to that of 
the DCBRECAD field to establish an EOB condition. Control then returns to 
the processing program. 


Get Module IGG019AM (RDBACK): Module IGGO19AM presents the 
processing program with the address of the next record when the data set is 
opened for backward reading. The Open executor selects and loads this 
module if the Open parameter list specifies: 


RDBACK 

and the DCB specifies: 
Get 
Simple buffering 
Locate operating mode 


Fixed-length (unblocked, blocked, or blocked standard) or 
undefined-length record format 


The module consists of a Get routine and a RELSE routine. 
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The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It tests for an EOB condition. 


e If no EOB condition exists, it determines the address of the next record by 
subtracting the DCBLRECL value from the DCBRECAD value. The 
routine presents the result to the processing program, and returns control 
to the processing program. 


e If an EOB condition exists, it issues a BALR instruction to pass the present 
buffer to the end-of-block routine. The Get routine issues another BALR 
instruction to obtain a new buffer through the 
input-synchronizing-and-error-processing routine, module IGGO19AQ. 
The Get routine then presents the address of the last record of the new 
buffer to the processing program, and returns control to the processing 
program. 


The RELSE routine causes an EOB condition by setting the DCBRECAD 
and DCBEOBAD fields so that they are equal; it then returns control to the 
processing program. 


Figure 2 illustrates the ordering of records using this module. When reading 
backwards under QSAM, each block is read from the tape from the end of the 
block to the beginning, each buffer is filled from the end of the buffer to the 
beginning, and the records are presented to the processing program in order 
of the record in the last segment of the buffer first, and the record in the first 
one last. In this manner of reading, buffering, and presenting, each record 
follows in backward sequence, from the record presented last out of one 
buffer to the record presented first out of the next buffer. 


Get Module IGG019AN (RDBACK): Module IGGO19AN moves the next 
record to the work area when the data set is opened for backward reading. 
The Open executor selects and loads this module if the Open parameter list 
specifies: 

RDBACK 
and the DCB specifies: 

Get 

Simple buffering 

Move operating mode 


Fixed-length (unblocked, blocked, or blocked standard) or 
undefined-length record format 


The module consists of a Get routine and a RELSE routine. 
The Get routine operates as follows: 


e It receives control when a GET maero instruction is encountered in a 
processing program. 
e It tests for an EOB condition. 


e If no EOB condition exists, it moves the next record to the work area, and 
updates the DCBRECAD field by reducing it by the value of the 
DCBLRECL field. 


pLeted >] Tets|ey Pedal] 3 


“<= Direction of Tape Direction of Tape >” 
When Reading Backward When Writing 


addresses this segment 


Last GET for this block 


First channel program 
fills this buffer 
~t— beginning here 


First GET for this block 
addresses this segment 


Last GET for this block 4 
addresses this segment 
Next channel program 


First GET for this block fills this buffer 


addresses this segment ~t— beginning here 


Last GET for this block 
addresses this segment 


Next channel program 
fills this buffer 


First GET for this block < beginning here 


addresses this segment 


Figure 2. Order of Records Using Get Routines for Data Sets Opened for RDBACK 
(IGG019AM, IGGOI9AN) 


e If an EOB condition exists, it issues a BALR instruction to obtain a new 
buffer through the input-synchronizing-and-error-processing routine, 
module IGG0O19AQ. The Get routine then moves the last record of the 
new buffer to the work area. 


e It tests for a new EOB condition. 


e If no new EOB condition exists, it returns control to the processing 
program. 


If a new EOB condition exists, it issues a BALR instruction to pass the 
present buffer to the end-of-block routine and then returns control to the 
processing program. 


The RELSE routine issues a BALR instruction to pass the present buffer to 
the end-of-block routine and then returns control to the processing program. 


Figure 2, described for Get module IGGO19AM, also illustrates the ordering 
of records using this module. 
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Get Module IGG019AT (Paper Tape): Module IGGO19AT converts paper 
tape characters into EBCDIC characters and moves them to the work area. 
The Open executor selects and loads this module and one of the code 
conversion modules (see ‘Appendix A: Paper Tape Code Conversion 
Routines”’) if the Open parameter list specifies: 


Input 

and the DCB specifies: 
Get 
Simple buffering 


c 


Move operating mode 
Paper-tape-character-conversion 


The module consists of a Get routine and a character-conversion and 
synchronizing-and-error-processing routine. 


The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It converts the next character and moves it to the work area. 


e It continues converting and moving until one of the following conditions is 
met, resulting in stated effect: 


The number of characters specified in the DCBBLKSI field of the DCB 
have been moved: The routine returns control to the processing program. 


An EOB condition is encountered: The routine passes control to the 

end-of-block routine to refill the buffer, and then enters the 

character-conversion and synchronizing-and-error-processing routine to J 
obtain a new buffer. 


An end-of-record character is encountered (undefined-length records 
only): The routine returns control to the processing program. 


The tape is exhausted: The routine returns control to the processing 
program. 


A paper tape reader-detected error character is encountered: The routine 
moves the character to the work area without conversion and enters the 
character-conversion and synchronizing-and-error-processing routine. 


e If one of the characters in the buffer is an undefined character, the module 
converts it to the hexadecimal character FF, moves it to the work area, and 
continues conversion. When one of the previous conditions is met, control 
passes to the character-conversion and synchronizing-and-error-processing 
routine. 


The character-conversion and synchronizing-and-error-processing routine 
operates as follows: 


e For an EOB condition, the routine finds the next buffer and returns 
control to the Get routine to resume converting and moving. 


e For a reader-detected error character and for an undefined character, the ° 
routine passes control to the processing program’s SYNAD routine. When 
control returns from the SYNAD routine, or if there is no SYNAD routine 
present, one of the error options is implemented. 


ant Oe, 


e For the Accept-error option, the routine returns control to the processing 
' program. 


e For the Skip-error option, the routine fills the work area again. 


e For the ABE-error option, or if no error option is specified, the routine 
issues the ABEND macro instruction. 


The modules containing the tables used for code conversion are listed in 
““Appendix A: Paper Tape Code Conversion Routines.” 


Get Module IGG019BO: Module IGGO19BO presents the processing 
program with the address of the next variable-length record. The Open 
executor selects and loads this module if the Open parameter list specifies: 


Input 
and the DCB specifies: 
Get 
Simple buffering 
Locate operating mode 
Variable-length spanned (unblocked or blocked) record format 
Logical record interface 
The module consists of a Get routine and a RELSE routine. 
The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in the 
processing program. 


e It determines the address of the next record and tests for an EOB 
condition to determine whether a buffer is empty and ready for refilling 
and if new buffer is needed. When the Open executor primes the buffers, it 
schedules all buffers except one and sets an EOB condition. 


e If no EOB condition exists, it tests whether the next record segment 
contains a complete record. 


e If it is a complete record, the routine presents the address of the next 
record to the processing program and returns control to the processing 
program. 


e If it is the first segment of a spanned record, the routine moves the 
segment to the record area with the proper alignment, sets the EOB 
condition, and determines the address of the next record and whether a 
buffer is ready for refilling. 


e If it is a segment that follows another segment of a spanned record, the 
routine moves the segment (without the segment descriptor word) next to 
the previous segment in the record area, and updates the count in the 
record area. This step continues until the entire logical record has been 
assembled in the record area. If an EOB condition occurs during this 
process, the routine determines the address of the next record and whether 
a buffer is ready for refilling. When the entire logical record is assembled, 
the routine sets the spanned record flag in the IOB, presents the address of 
the assembled record, and returns control to the processing program. 


e If an EOB condition exists, it issues a BALR instruction to pass the present 
buffer to the EOB routine to be scheduled for refilling. The Get routine 
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issues another BALR instruction to obtain a new buffer through the 
input-synchronizing-and-error-processing routine (module IGGO19A0O). 
The routine then obtains and interrogates the first record segment of the 
new buffer. If it is a complete record, the routine presents the address of 
the next record to the processing program and returns control to the 
processing program. 

The RELSE routine operates as follows: 


e It receives control when a RELSE macro instruction is encountered in the 
processing program. 


e It sets an EOB condition. 
e It sets a release bit in the DCBRECAD of the DCB. 
e It returns control to the processing program. 


The RELSE routine sets a release bit in the DCB so that the Get routine 
passes the buffer for refilling and obtains a new full buffer the next time the 
routine is entered. After obtaining the new buffer as a result of RELSE, the 
Get routine interrogates the SDW of the first segment to determine if it is the 
first segment of a record (bit 6 in third byte of SDW must be 0); if not, the 
routine skips to the next SDW and checks it. This continues until an 
acceptable segment is found. The routine then processes the Get request in 
the usual way. The procedure may result in one or more additional blocks 
being passed. 


Get Module IGG019DJ (SYSIN/SYSOUT): Module IGG019DJ interfaces 
with a job entry subsystem to provide the next record from the system input 
stream to the processing program. 


The open executor selects and loads this module if the open parameter list 
specifies: 

Input (* or DATA specified on the DD statement) 
and the DCB specifies: 

Get 

Simple buffering 

Locate or move operating mode 

Fixed, undefined, or variable-length record format 


The module consists of a get routine and a RELSE routine. See Diagram M 
for an overview of the SAM-SI processing for QSAM. 


This module also contains a Put routine that is described in the section, 
“Simple Buffering Put Routines” (see Figure 6). The Get routine operates as 
follows: 


e It receives control when a GET macro instruction is encountered in the 
processing program. 


e It determines the type of get request and initializes the input area address 
in the RPL (request parameter list). For move mode RPLAREA contains . 
the address of the processing program work area (the contents of register 0 
on entry); for locate mode RPLAREA contains the address of a buffer 
from the DCB buffer pool. 


« If the get request is for variable-length records RPLAREA is adjusted to 
allow space for a RDW (record descriptor word) in the first four bytes of 
the work area. 


e It passes control to the JES (job entry subsystem) for data transfer by 
issuing a GET macro instruction against the RPL. The return code in 
register 15 is tested upon return from the JES. 


e For an exceptional condition the RPLRTNCD and RPLERRCD are 
examined to determine the type of failure. 


e If end-of-data is detected, the appropriate registers are loaded and saved, 
then an unconditional branch is taken to the synchronizing module, 
1GG019AQ, (see Figure 13) for EODAD and concatenation processing 


e If an error condition is detected, control is passed to the error-processing 
module, IGGO19AH (see Figure 14). If control is returned to this routine, 
the GET request is reissued if DCB EROPT is SKIP. Otherwise, control is 
returned to the processing program. 


e For normal completion, it places the record address from the RPLAREA 
field into register 1. If the SAM request was for a variable-length record, 
the record descriptor word field is created, by using the value returned in 
the RPLRLEN field. Registers are restored and control is returned to the 
processing program. 


The RELSE routine receives control when a RELSE macro instruction is 
issued. Module IGGO19DJ does not do any processing for this macro 
instruction. Control is returned to the processing program by IGGO19DJ. 


Get Module IGG019FB: Module IGGO19FB presents the processing program 
with the address of the next variable-length record. The Open executor selects 
and loads this module if the Open parameter list specifies: 


Input 
and the DCB specifies: 

Get 

Simple buffering 

Locate operating mode 

Variable-length format (unblocked or blocked) record, spanned 
The module consists of a Get routine and a RELSE routine. 
The Get routine operates as follows: 


e It receives control when the processing program issues a GET macro 
instruction. 


e It determines the address of the next record segment and tests for an EOB 
condition to determine whether a buffer is ready for refilling and also 
whether a new buffer is needed. When the Open executor primes the 
buffers, the executor schedules all buffers except one and sets an EOB 
condition. 


e If no EOB condition exists, the routine presents the address of the next 
record segment to the processing program. 


e If an EOB condition exists or if a DOS-type null segment (where the 
high-order bit of the record descriptor word is on) is encountered, the 
routine issues a BALR instruction to pass the current buffer to the EOB 
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routine. The EOB routine schedules the buffer for refilling. The Get 
routine issues another BALR instruction to obtain a new buffer through 
the input-synchronizing-and-error-processing routine, module IGGO19AQ. 
The Get routine then determines if the EOB routine was entered because - 
of a RELSE macro instruction. If so, the Get routine checks the first 
record segment to determine if it is a member of a previous logical record. 
If it is, the Get routine continues to look for a record segment that is not a 
member of a previous record. Such a segment is considered the first record 
of the new buffer. (Note, however, that this could cause reentry into the 
EOB routine and result in one or more entire blocks being skipped.) The 
Get routine then presents the address of the first record segment of the 
new buffer to the processing program and returns control to the processing 
program. 


The RELSE routine causes an EOB condition by setting the DCBRECAD 
and DCBEOBAD fields so that they are equal. It then sets the high-order 4 
bits of DCBRECAD to 1s and returns control to the processing program. 


Get Module IGGO019FD: Module IGGO19FD moves the next variable-length 
record to the work area. The Open executor selects and loads this module if 
the Open parameter list specifies: 


Input 
and the DCB specifies: 
Get 
Simple buffering 
Move operating mode 
Variable-length (unblocked or blocked) record format, spanned J 


The DCB does not, however, specify the CNTRL macro instruction. The 
module consists of a Get and a RELSE routine. 


The Get routine operates as follows: 


e It receives control when the processing program issues a GET macro 
instruction. 


e It tests for an EOB condition to determine whether a new full buffer is 
needed. When the Open executor primes the buffers, the executor also sets 
an EOB condition for the first GET macro instruction. 


e If an EOB condition exists, the routine issues a BALR instruction to obtain 
a new buffer through the input-synchronizing-and-error-processing 
routine, module IGGO19AQ, and moves the first record segment to the 
user’s work area. 


e If no EOB condition exists, the routine moves the first record segment to 
the user’s work area. 


e If a DOS-type null segment (where the high-order bit of the record 
descriptor word is on) is encountered, that, buffer is rescheduled by passing 
control to the EOB routine. Processing continues as if an EOB condition - 
exists as described above. 


°° 


e If more record segments are required, the routine moves them, without the 
segment descriptor words, to the part of the user’s work area that is 
contiguous with the previous record segment. The routine also updates the 
DCBLRECL field and the logical-record-length field in the record JZ 


descriptor word (RDW) in the user’s work area. These fields then reflect 
the total logical-record length after additional record segments have been 
moved. This procedure continues until the routine has moved the entire 
logical record. An EOB condition can occur during this procedure. 


e The routine tests for a new EOB condition to determine whether a buffer 
is empty and ready for refilling. For unblocked records, the EOB condition 
exists after every entry to the Get routine. 


e If no new EOB condition exists, the routine returns control to the 
processing program. 


e If anew EOB condition exists, the routine issues a BALR instruction to 
pass the present buffer to the EOB routine. The EOB routine then 
schedules the buffer for refilling and returns control to the processing 
program. 


The RELSE routine sets the high-order 4 bits in the DCBRECAD field to 1s 
so that the Get routine passes the buffer for refilling and so that the next time 
the Get routine is entered, it obtains a new full buffer. After obtaining the 
new buffer, the Get routine interrogates the segment descriptor word (SDW) 
of the first record segment. The routine thus determines if the segment is the 
first segment of a record. If it is, bit 6 of the third byte of the SDW will be 0. 
If not, the Get routine skips to the next SDW and checks it. This procedure 
continues until an acceptable segment is found. Then the Get routine 
processes the GET macro instruction in the usual way. The procedure on 
result in one or more additional blocks being passed. 


Get Module IGG019FF: Module IGGO19FF moves the data portion of the 
next variable-length record to the work area. The Open executor selects and 
loads this module if the Open parameter list specifies: 


Input 
and the DCB specifies: 
Get 
Simple buffering 
Data operating mode 
Variable-length (unblocked or blocked) record format, spanned 


The DCB does not, however, specify the CNTRL macro instruction. The 
module consists of Get and RELSE routines. 


The Get routine operates as follows: 


e It receives control when the processing program issues a GET macro 
instruction. 


e It tests for an EOB condition to determine whether a new full buffer is 
needed. When the Open executor primes the buffers, the executor also sets 
an EOB condition for the first GET macro instruction. 


e If an EOB condition exists, the routine issues a BALR instruction to obtain 
a new buffer through the input-synchronizing-and-error-processing 
routine, module IGG019AQ, and moves the data portion of the first record 
segment to the work area. 


e If no EOB condition exists, the routine moves the data portion of the first 
record segment to the user’s work area. 
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e If more segments are required, the routine moves them, without the 
segment descriptor word, to the part of the user’s work area that is 
contiguous with the previous record segment. The routine also updates the 
DCBLRECL field to reflect the current total logical record length. This 
procedure continues until the routine has moved the entire logical record. 
An EOB condition can occur during this procedure. | 


e The routine tests for a new EOB condition to determine whether a buffer 
is ready for refilling. For unblocked records, the condition exists after 
every entry to this routine. 


e If no new EOB condition exists, the routine returns control to the 
processing program. 


e If anew EOB condition exists, the routine issues a BALR instruction to 
pass the present buffer to the EOB routine. The EOB routine then 
schedules the buffer for refilling and returns control to the processing 
program. 


The RELSE routine sets the high-order 4 bits in the DCBRECAD field to 1s 
so that the Get routine passes the buffer for refilling and so that the next time 
the Get routine is entered, it obtains a new full buffer. After obtaining the 
new buffer, the Get routine interrogates the segment descriptor word (SDW) 
of the first record segment. The routine thus determines if the segment is the 
first segment of a record. If it is, bit 6 of the third byte of the SDW will be 0. 
If not, the Get routine skips to the next SDW and checks it. This procedure 
continues until an acceptable segment is found. Then the Get routine 
processes the GET macro instruction in the usual manner. The procedure can 
result in one or more additional blocks being passed. 


The QSAM parallel input processing routine provides to the user an input 
record from a queue of equal priority, sequential data sets. The routine 
supports input processing; simple buffering; locate or move mode; and 
fixed-length, variable-length, or undefined-length records. Track overflow 
and spanned records are not supported. 


Parallel Input Processing Module IGG019JD: Module IGGO019JD uses the 
PDAB (parallel data address block) to maintain a list of data control blocks, 
addresses, and a corresponding wait parameter list of ECB addresses. DCB 
addresses are added to the PDAB by the open routines and are removed by 
the close routines. A count of the maximum number of DCB entries allowable 
is assembled in the PDAB. 


The address of the DCB entry from which the previous record was provided is 
obtained from the PDAB, and each succeeding DCB entry is processed until 
an available logical record is found; or until each data set is found to have 
reached an EOB condition, and the next block of data is not available. 


An EOB condition is detected when DCBEOBAD is greater than or equal to 
DCBREGAD for the move mode, when DCBEOBAD is greater than or equal 
to DCBECAD plus DCBLRECL for the locate mode, or when the first four” 
bits of the DCBIOBA are set to ones for the RELSE function. 


The next block is not available when the ECB for the next IOB is not posted’ 
as complete. The location of the next IOB is obtained from the current 
IOB-8, and the location of its corresponding ECB is obtained from IOB+4. 


» | 


Update Mode Get Routine 


When the ECB is not posted as complete its address is stored in the wait 
parameter list in the PDAB. When no record is available from the queue of 
data sets a WAIT is issued for the list of ECB addresses in the PDAB. When 
control is returned the completed event is located from the list of ECB 
addresses. 


When a record is available, the DCB address and the user’s data area address 
are passed to the DCB get routine. 


The update mode Get routine differs from other Get routines in that it shares 
its buffers, as well as the DCB and the IOBs, with the update mode Put 
routine. The QSAM update mode of access uses simple buffering in which the 
buffer is defined by the start and end addresses of the buffer. 


If a PUTX macro instruction addresses a record in a block, the update mode 
Get routine determines, when the end of the block is reached, that that buffer 
is to be emptied (that is, that the block is to be updated) before being filled 
with a new block of data. If no PUTX macro instruction addresses a record in 
a block, the update mode Get routine determines, when the end of the block 
is reached, that the buffer is to be refilled only; that is, that the last block 
need not be updated and the buffer can be filled with a new block of data. 
These characteristics of the buffer—simple buffering, sharing the buffer with 
the Put routine, and emptying the buffer before refilling—influence the 
manner in which the update mode Get routine determines: 


e The address of the next record. 

e Whether the buffer can be scheduled. 

e Whether a new buffer is needed. 

e Whether to schedule the buffer for empty-and-refill or for refill-only. 


The first three of these determinations are made at every pass through the 
routine. The last determination is made after the routine establishes that the 
buffer can be scheduled. 


If the records are unblocked, the address of the next record is the address of 
the next buffer. 


If the records are blocked, the address of the next record is found by adding 
the record length, found in the DCBLRECL field, to the value in the 
DCBRECAD field. 


Whether the buffer can be scheduled and whether a new buffer is needed is 
determined by whether an end-of-block condition exists. In the update mode, 
one determination that an end-of-block condition exists causes both the last 
buffer to be scheduled and a new buffer to be sought. An end-of-block 
condition exists for unblocked records at every pass through the routine; for 
blocked records it exists if the values in the DCBRECAD (the address of the 
current record) and the DCBEOBAD (the address of the end of the block) 
fields are equal. To cause scheduling of the buffer, the Get routine passes 
control to the end-of-block routine. To obtain a new buffer, the Get routine 
passes control to the update-synchronizing-and-error-processing routine, 
module IGGO19AF. 


To cause scheduling of the buffer for either empty-and-refill or refill-only, the 
update mode Get routine sets the IOB to point to the beginning of either one 
of two parts (empty and refill) of the QSAM update channel program. Empty 
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Channel Program 
ial MBBCCHHR 


A SEARCH The Empty portion of an 
Tic Update Channel Program 


WRITE (Data) 
SEEK 
ie 


SEARCH 


vic The Refill portion of an 
READ (Count) Update Channel Program 


re READ (Data) 
MBBCCHHR 


Buffer 


CPAD 


Legend: 


A - Address of channel program (CPAD) used to empty and refill the buffer. 
(A PUTX macro-instruction was addressed to a record in this buffer.) 


B - Address of channel program (CPAD) used only to refill the buffer. 
(No PUTX macro-instruction was addressed to any record in this buffer.) 


Figure 3. The Two Parts of an Update Channel Program (Empty, Refill) 


writes out of the buffer and reads into that same buffer (see Figure 3). If 
execution of a QSAM update channel program begins with the empty part, 
execution of the refill part always follows. Each part of the QSAM update 
channel program addresses a different location in auxiliary storage: the empty 
part addresses the location from which the block to be updated was read; the 
refill part addresses the location from which the last block was read. 
Addressing the last known block and skipping over its data field leads to the 
beginning of the next block, regardless of its address. This method of 
addressing a Search command to the block read previously to address a Read 
(count, key, and data) command to the next block is known as the 
search-previous technique. It makes the count field of the present block being 
read the Seek address of the refill portion of the next channel program. When 
a buffer is to be emptied (back to the original location of the block in 
auxiliary storage), the update mode Get routine obtains the block address 
from the Seek address of the refill part of the next channel program. It copies 
the address so that it becomes the Seek address for the empty part of the 
present channel program (see Figure 4). For a description of the processing 
for a refill-only QSAM update channel program, refer to the description of 
the update SIO appendage. - 


Whether to schedule the buffer for empty-and-refill or for refill-only depends 
on whether the block is to be updated. If the block is to be updated, the 
PUTX routine will have set the update flag on in the IOB; otherwise, the flag 
is off. To schedule the buffer for empty-and-refill, the Get routine sets the 
IOB to point to the empty portion of the channel program and obtains the 


Jd 
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A - The Refill portion reads the count field of the block being read into the search argument of the next Refill portion. 


B - To empty the buffer, the search argument of the next Refill portion is used as the search argument of this Empty portion. 


C - To empty the buffer, the search argument of the next Refill portion was copied before the last time this buffer was scheduled. 


D - To empty the buffer, the search argument of the next Refill portion will be copied before the next time this buffer 1s scheduled. 


Present entries 
—-——-—— Future entries 


Figure 4. Relation of Seek Addresses in Three Successive QSAM Update Channel Programs 


Seek address of the block to be updated from the refill portion of the next 
channel program. To schedule the buffer for refill-only, the Get routine sets 
the IOB to point to the refill portion of the channel program. The 
end-of-block condition which triggers this processing also causes control to 
pass to the end-of-block routine, module IGGO19CC, for issuing the EXCP 
macro instruction and to the update-synchronizing-and-error-processing 
routine, module IGGO19AF, for obtaining the next buffer. 


The PUTX routine sets the update flag in the IOB and returns control to the 
processing program. The RELSE routine sets an end-of-block condition and 
returns control to the processing program. 


The Open executor primes (that is, schedules for filling) all the buffers except 
one if QSAM is used with a DCB opened for update. The Open executor also 
sets an end-of-block condition; the first time that the update mode Get 
routine gains control, it processes this condition in its normal manner. 


Figure 5 shows the update mode Get routines and the access conditions that 
must be specified in the DCB to select a particular routine. The Open 
executor loads the selected routine and places its address into the DCBGET 
field of the DCB. 
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Access Method Options Selections 
Update, Get X xX X X X X X 
Fixed-length record X X ) 


format 


Variable-length record X X X X 
format 


Undefined-length record xX 
format 


Blocked record format X ».4 X 
Unblocked record format xX X X ».4 
Locate operating mode X X 


Logical record X X 
interface 


Get Modules 
IGGOIL9AE! AE AE AE AE AE 
IGGOL9BN BN BN 


1. This module also carries the Update-Mode PUTX routine. 
Figure 5. Module Selector—Update-Mode Get Modules 


Get Module IGG019AE: Module IGGO19AE presents the processing program 
with the next input record, flags the IOB if the block is to be updated 
(emptied and refilled), and sets the IOB to address a QSAM update channel 
program for either empty-and-refill or refill-only. The Open executor selects 
and loads this module if the Open parameter list specifies: 


Update 
and the DCB specifies: J 
Get | 


With the rotational position sensing (RPS) feature, the new CCWs are 
bypassed when necessary. 


The module consists of a Get routine, a RELSE routine, and a PUTX routine. 
The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It tests for an end-of-block condition to determine whether the buffer can 
be scheduled and if a new buffer is needed. When the Open executor 
primes the buffers, it schedules all buffers except one and sets an 
end-of-block condition. 


e If no end-of-block condition exists, it presents the address of the next 
record, and returns control to the processing program. For variable-length, 
format-D, and undefined-length records, it also determines the length of 
the record and places it in the DCBLRECL field in the DCB. 


e If an end-of-block condition exists, it tests whether the buffer is to be 
emptied and refilled or is to be refilled only. 


e If it is to be refilled only, it sets the IOB to point to the start of the Read ; 
portion of the update channel program and passes control to the 
end-of-block routine to cause scheduling of the buffer. 


e If it is to be emptied and refilled, it sets the IOB to point to the start of the 
update channel program. The routine obtains the auxiliary storage address 
to be used by the Write portion of the channel program by copying the 
address used by the Read portion of the channel program associated with 
the next IOB. The routine then passes control to the end-of-block routine 
to cause scheduling of the buffer. 


e Qn return of control from the end-of-block routine, the Get routine passes 
control to the update-synchronizing-and-error-processing routine, module 
IGGO19AfF, to obtain a new full buffer. 


e On return of control from the synchronizing routine, the Get routine 
updates the DCBLRECL field, presents the address of the next record, and 
returns control to the processing program. 


The RELSE routine operates as follows: 


e It receives control when a RELSE macro instruction is encountered in the 
processing program. 


e It sets an end-of-block condition. 
e It returns control to the processing program. 
The PUTX routine operates as follows: 


e It receives control when a PUTX macro instruction is encountered in the 
processing program. 


e It sets the update flag in the IOB to show that the buffer is to be emptied 
before being refilled. 


e It returns control to the processing program. 


Get Update Module IGG019BN: Module IGGO19BN presents the processing 
program with the next input record, flags the IOB if the block or a spanned 
record is to be updated (that is, emptied and refilled), and sets the IOB to 
address a QSAM update channel program for either empty-and-refill or 
refill-only. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Update 
and the DCB specifies: 

Get 

Locate operating mode 

Variable-length spanned (blocked or unblocked) record format 

Logical record interface 
The module consists of a Get routine, a RELSE routine, and a Put routine. 
The Get routine operates as follows: 


e It receives control when a GET macro instruction is encountered in a 
processing program. 


e It tests whether EOV has occurred while processing a spanned record. 


e If the record is not to be updated, it sets a bit in the DCBIOBAD field of 
the DCB to indicate that the old DEB, whose address was saved by the 
EOV routine, can be freed. It then issues an FEOV macro instruction to 
free the virtual storage assigned to this DEB. 
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If the record is to be updated, it restores the address to read back the block 

that contains the beginning segment of the record. The current IOB is 

modified to function as if only one IOB exists. It then issues an FEOV 

macro instruction to cause the previous volume to be mounted and the data J 
management count to be reset. 


On return of control from the FEOV routines, it operates as if no EOV has 
occurred. 


If EOV has not occurred, it continues on to the next step. 
It tests whether a spanned record is to be updated. 


If it is not to be updated, it obtains the length of the previous record 
segment from the DCBLRECL field in the DCB or the SDW if it was a 
spanned record. 


It determines the address of the next record segment and tests for an EOB 
condition to determine whether the buffer can be scheduled and if a new 
buffer is needed. (When the Open executor primes the buffers, it schedules 
all buffers except one and sets an EOB condition.) 


If no EOB condition exists, it tests the next record segment for a complete 
record. 


If it is a complete record, the routine presents the address of the next 
record, determines the length of the record, places it in the DCBLRECL 
field, and returns control to the processing program. 


If it is the first segment of a spanned record, the routine saves the track 

address of the block that contains this segment, the position of the segment 

in the block, and the alignment of the segment in the record area. The 

routine obtains the track address of the block by copying the address used | 
by the Read portion of the channel program associated with the next IOB, aw 
the position of the segment by subtracting the buffer address from the 

current record address, and the alignment of the segment by using the 

low-order byte of the current record address. The routine then moves the 

first segment to the record area and sets the EOB condition. It determines 

the address of the next record, whether a new buffer can be scheduled, and 

if a new buffer is needed. 


If it is a segment that follows another segment of a spanned record, the 
routine combines the segment (without the SDW) contiguous with the 
previous segment in the record area. The count in the record descriptor 
word (RDW) in the record area is updated to include the total count. This 
process continues until the entire logical record has been assembled. An 
EOB condition may occur during this process, in which case the routine 
determines the address of the next record, whether a new buffer can be 
scheduled, and if a new buffer is needed. When the entire logical record 
has been assembled, the routine sets the spanned-record flag in the IOB, 
presents the address of the assembled record in the record area, places the 
length of the record (which is obtained from the RDW in the record area) 
in the DCBLRECL field, and returns control to the processing program. 


If an EOB condition exists, it tests whether the buffer is to be emptied and 
refilled or is to be refilled only. . 


If it is to be refilled only, it sets the IOB to point to the start of the read 
portion of the update channel program and passes control to the EOB 
routine to cause scheduling of the buffer. 


e If it is to be emptied and refilled, it sets the IOB to point to the start of the 
update channel program. The routine obtains the auxiliary storage address 
to be used by the Write portion of the channel program by copying the 
address used by the Read portion of the channel program associated with 
the next IOB. The routine then passes control to the EOB routine to cause 
scheduling of the buffer. 


e On return of control from the EOB routine, the routine passes control to 
the update-synchronizing-and-error-processing routine, module 
IGGO019BQ, to obtain a new full buffer. 


e On return of control from the synchronizing routine, the routine 
interrogates the next record segment and saves the track address of the 
block that contains the record, the position of the segment in the block, 
and the alignment of the segment in the record area. The routine then 
moves the first segment to the record area and sets the EOB condition. 


e If aspanned record is to be updated, the routine restores the track address 
to read back the block that contains the beginning segment of the record. 
The current IOB is modified to function as if only one IOB exists. 


e It sets the IOB to point to the start of the read portion of the update 


channel program and passes control to the EOB routine to cause 
scheduling of the buffer. 


e On return of control from the EOB routine, the routine passes control to 
the update-synchronizing-and-error-processing routine, module 
IGG019BQ, to obtain a new full buffer. 


e On return of control from the synchronizing routine, the routine 
repositions the pointers to the beginning segment of the record and moves 
that portion of the record from the record area to the segment in the 
buffer. (A count is kept of the number of bytes of data moved.) 


e If more segments are to be updated, the routine moves that portion of the 
record from the record area to the succeeding segments in the buffer. (The 
total count of the data moved is updated with each move.) This process 
continues until the entire logical record has been segmented. If an EOB 
condition occurs during this process, the routine tests whether a spanned 
record is to be updated. When the entire logical record has been 
segmented, the routine turns off the spanned-record flag in the JOB, 
restores the link field in the IOB, obtains the address of the next record 
segment, and determines whether a new buffer can be scheduled and is 
needed. 


The RELSE routine operates as follows: 


e It receives control when a RELSE macro instruction is encountered in the 
processing program. 


e It sets an EOB condition. 
e It sets a release bit in the DCBRECAD field of the DCB. 
e It returns control to the processing program. 


The RELSE routine sets a release bit in the DCB so that the Get routine 
passes the buffer for refilling and obtains a new full buffer the next time the 
routine is entered. After obtaining the new buffer as a result of RELSE, the 
Get routine interrogates the SDW of the first segment to determine if it is the 
first segment of a record (bit 6 in the third byte of the SDW must be 0); if 
not, the routine skips to the next SDW and checks it. This continues until an 
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acceptable segment is found. The routine then processes the Get in the usual 
way. This procedure may result in one or more additional blocks being passed. 


The PUTX routine operates as follows: ) 


e It receives control when a PUTX macro instruction is encountered in the 
processing program. 


e It sets the update flag in the IOB to show that the buffer is to be emptied 
before being refilled. 


e It returns control to the processing program. 


Note: When a RELSE macro instruction is issued after a spanned record is 
written with a PUTX macro instruction, this routine branches to the Get 
routine to write the last record (the spanned record) and then releases the 
block that contains the last segment of that spanned record. 


Some of the general characteristics of the Put routines are described in 
Diagram B, QSAM Get and Put Routines. A specific Put routine is selected 
for each data set on the basis of access method options specified by the 
processing program. The options examined are in the Open statement 
parameter list and the data set attributes described in the DCB. 


The Open executors (see Diagram D, SAM Open Executors) select and load 
the modules that are required for a particular data set. 


The access method options that determine which Put modules are selected 

when Simple buffering is used are described in Figure 6. For update mode, 

the PUTX routine resides in the Get module for update mode. See Figure 5 

(under ““Update Mode Get Routine”) for information about the update mode J 
PUTX routine. 


For information about the flow of control through the QSAM routines, see 
Diagram F, QSAM Flow of Control. 


Simple buffering Put routines use buffers whose ending address and the 
address of the next or current record is pointed to by the DCB. The address 
of the next record is in the DCBRECAD field (address of the next record); 
the ending address is in the DCBEOBAD field (address of the end of the 
buffer). In each pass through a routine, it determines: 


e The address of the next buffer segment 

e Whether an output buffer is to be scheduled for emptying 

e Whether a new empty buffer is needed 

These three determinations are made at every pass through a Put routine. 


If the records are unblocked, the address of the next available buffer segment 
is always that of the next buffer. 


If the records are blocked, a Put routine determines the address of the next 
available buffer segment by adding the length of the last record to the address 
of the last buffer segment. The address of the last buffer segment is in the 
DCBRECAD field of the data control block (DCB). If the records are 
fixed-length blocked records, the length of each record is in the DCBLRECL 


| 


field. If the records are variable-length blocked records, the length of each 
record is in the length field of the record itself. 


A Put routine determines that a buffer is ready for emptying and a new empty 
buffer is needed by establishing that an end-of-block (EOB) condition exists. 


If an output buffer is to be scheduled for emptying, a Put routine passes 
control to an end-of-block routine, to cause the present buffer to be 
scheduled for output. 


If a new empty buffer is needed, a Put routine obtains a new buffer by 
passing control to the output-synchronizing-and-error-processing routine, 
module IGGO19AR. For a buffer that was emptied without error, the 
synchronizing routine updates the DCBIOBA field (thus pointing to the new 
buffer) and returns control to the Put routine. The Put routine updates the 
DCBRECAD field by inserting the starting address of the buffer from the 
channel program associated with the new IOB. To update the DCBEOBAD 
field, the routine adds the length of the block stated in the DCBBLKSI field 
to the buffer starting address. These two fields, DCBRECAD and 
DCBEOBAD, define the available buffer. 


An EOB condition is established by different criteria for different record 
formats and operating modes. 


For unblocked records, an EOB condition exists after each record is placed in 
the buffer. If the move operating mode is used, a Put routine establishes that 
an EOB condition exists for the present buffer after the routine has moved 
the record into the buffer. If the locate operating mode is used, a Put routine 
establishes that an EOB condition exists for the present buffer on the next 
entry to the routine, after the processing program has moved the record into 
the buffer. 


For blocked records, the time that an EOB condition occurs depends on the 
record format. 


For fixed-length blocked records, an EOB condition occurs when the 
DCBRECAD field equals the DCBEOBAD field. The DCBRECAD field 
shows the address of the segment for the next record. The DCBEOBAD field 
shows a value equal to one more than the address of the end of the buffer. If 
the move operating mode is used, the Put routine moves the last fixed-length 
record into the buffer, updates the DCBRECAD field, and establishes that an 
EOB condition exists for the present buffer. If the locate operating mode is 
used, the processing program moves the last fixed-length record into the 
buffer. On the next entry to the Put routine, the routine updates the 
DCBRECAD field and establishes that an EOB condition exists for the 
present buffer. 


For variable-length blocked records, unspanned, an EOB condition occurs 
when the length of the next record exceeds the buffer balance; that is, when 
the record length exceeds the space remaining in the buffer. If the user has 
specified move mode for unspanned records, the Put routine establishes that 
an EOB condition exists when the record length stated in the first word of the 
record exceeds the buffer balance. If the user has specified locate mode for 
unspanned records, the Put routine establishes that an EOB condition exists 
when the value stated in the DCBLRECL field exceeds the buffer balance. 


For variable-length blocked records, spanned, the next record is segmented. 
The first record segment is used to fill the buffer when five or more bytes 
remain in the buffer. When fewer than five bytes remain in the buffer, an 
EOB condition occurs. 
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A TRUNC routine sets an end-of-block condition to empty the buffer. This 
end-of-block condition is processed so that the next entry to the Put routine 
permits it to operate as usual. Successive entries to a TRUNC routine without 
intervening entries to a Put routine cause the TRUNC routine to return 
control without performing any processing. 


To permit a Put routine to operate normally when it is entered for the first 
time, the Open executor initializes the DCB fields DCBRECAD and 
DCBEOBAD. For an output data set using QSAM and simple buffering, the 
values entered in these fields depend on the operating mode. For locate mode 
routines, it sets them to show the beginning and end of the first buffer; for 
move mode routines, it sets an end-of-block condition. 


Figure 6 lists the Put routines and the conditions that cause a particular 
routine to be read. The Open executor selects one of the routines, loads it, 
and places its address into the DCBPUT fields. 


Access Method Options Selections 

Output, Put/PUTX X X X X X XK X X X xX X 
Locate operating mode X X X X X 

Move operating mode X XX X 

Data operating mode X X 


Fixed-length record X xX 
format 


Undefined-length X X 
record format 


Variable-length or xX X XK XX X X 
record format-D 


Spanned records XK xX X 


Logical record X 
interface 


SYSOUT specified xX 
on DD statement 


Put Modules 

IGGOI19AI AI AI 

IGGOI9AJ AJ 

IGGO19AK AK AK 

IGGO19AL AL 

IGG019BP BP 

IGGO019DJ DJ 
IGG019FG FG 

IGGO19FJ FJ 
IGGO19FL FL 


Figure 6. Module Selector—Simple Buffering Put Modules 


Put Module IGG019AI: Module IGGO19AI presents the processing program 
with the address of the next available buffer segment for a fixed-length or 
undefined-length record. The Open executor selects and loads this module if 
the Open parameter list specifies: 


Output 

and the DCB specifies: 
Put 
Simple buffering 
Locate operating mode 


Fixed-length (unblocked, blocked or blocked standard) or 
undefined-length record format 


The module consists of a Put routine and a TRUNC routine. 
The Put routine operates as follows: 


e It receives control when a PUT macro instruction is encountered in a 
processing program. 


e It determines the address of the next buffer segment using the value in the 
DCBLRECL field. 


e It tests for an EOB condition to determine whether a buffer is full and 
ready for emptying and if a new empty buffer is needed. 


e If no EOB condition exists, it presents the address of the next buffer 
segment to the processing program and returns control to the processing 
program. 


e If an EOB condition exists, it issues a BALR instruction to pass the present 
buffer to the end-of-block routine. The Put routine issues another BALR 
instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module IGGO19AR, 
and determines the address of the first segment of the new buffer. The Put 
routine then presents this address and returns control to the processing 
program. 


The TRUNC routine causes an EOB condition by setting the DCBRECAD 
and DCBEODAPD fields so that they are equal; it then returns control to the 
processing program. 


Put Module IGG019AJ: Module IGGO19AJ presents the processing program 
with the address of the next available buffer segment for a variable-length or 
format-D record. The Open executor selects and loads this module if the 
Open parameter list specifies: 


Output 
and the DCB specifies: 
Put 
Simple buffering 
Locate operating mode 
Variable-length or record format D (unblocked or blocked), unspanned 


The module consists of a Put routine and a TRUNC routine. 
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The Put routine operates as follows: 


e It receives control when a PUT macro instruction is encountered in a 
processing program. 


e It determines the address of the next buffer segment using the length field 
of the record moved by the processing program into the buffer segment 
located last. 


e It tests for an EOB condition to determine whether a buffer is ready for 
emptying and if a new empty buffer is needed, by using the value placed 
into the DCBLRECL field by the processing program. 


e If no EOB condition exists, it tests for blocked records. 


e If blocked records are specified, it presents the address of the next buffer 
segment to the processing program and returns control to the processing 
program. 

e If an EOB condition exists or if unblocked records are specified, it issues a 
BALR instruction to pass the present buffer to the end-of-block routine. 
The Put routine issues another BALR instruction to obtain a new buffer 
through the output-synchronizing-and-error-processing routine, module 
IGGO19AR, and determines the address of the first segment of the new 
buffer. The Put routine then presents this address to the processing 
program and returns control to the processing program. 


The TRUNC routine causes an EOB condition by setting the DCBRECAD 
and DCBEOBAD fields so that they are equal; it then returns control to the 


processing program. 


Put Module IGG019AK: Module IGGO19AK moves the present fixed-length 
or undefined-length record into the next available buffer segment. The Open 
executor selects and loads this module if the Open parameter list specifies: 


Output 

and the DCB specifies: 
Put 
Simple buffering 
Move operating mode 


Fixed-length (unblocked, blocked, blocked standard) or undefined-length 
record format 


The module consists of a Put routine, a PUTX routine, and a TRUNC 
routine. 


The Put routine operates as follows: 


e It receives control when a PUT macro instruction is encountered in a 
processing program. 


e If an EOB condition exists, it issues a BALR instruction to obtain a new 
buffer through the output-synchronizing-and-error-processing routine, 
module IGGO19AR, and then moves the record from the work area into © 
the first buffer segment. 


e If no EOB condition exists, it moves the record from the work area into the 
next buffer segment. 


e It tests for blocked records. 


e If blocked records are specified, it determines the address of the next 
segment and tests for a new EOB condition. 


e If unblocked records are specified or if a new EOB condition exists, it 
issues a BALR instruction to pass the present buffer to the end-of-block 
routine and then returns control to the processing program. 


e If no new EOB condition exists, it returns control to the processing 
program. 


The PUTX routine operates as follows: 


e It receives control when a PUTX macro instruction is encountered in a 
processing program. 


e It obtains the DCBRECAD value of the input DCB, which points to the 
present record in the input buffer. 


e It enters the Put routine at the start. The Put routine then uses the input 
DCBRECAD value in place of the work area address. 


The TRUNC routine operates as follows: 


e It receives control when a TRUNC macro instruction is encountered in a 
processing program. 


e It simulates an EOB condition. 


e It issues a BALR instruction to pass the present buffer to the end-of-block 
routine. 


e On return of control from the end-of-block routine it returns control to the 


processing program. 


Put Module IGG019AL: Module IGGO19AL moves the present 
variable-length or format-D record into the next available buffer segment. 
The Open executor selects and loads this module if the Open parameter list 
specifies: 


Output 
and the DCB specifies: 
Put 
Simple buffering 
Move operating mode 
Variable-length or record format-D (unblocked or blocked), unspanned 


The module consists of a Put routine, a PUTX routine, and a TRUNC 
routine. 


The Put routine operates as follows: 


e It receives control when a PUT macro instruction is encountered in a 
processing program. 


e It determines the address of the next buffer segment and compares the 
length of the next record with the remaining buffer capacity. 


e If the record fits into the buffer, it moves the record, updates the length 
field of the block, and tests for blocked records. 


e If blocked records are specified, it returns control to the processing 
program. 7 


“ 
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If the record does not fit into the buffer or if unblocked records are 
specified, it issues a BALR instruction to pass the present buffer to the 
end-of-block routine. It issues another BALR instruction to obtain a new 
buffer through the output-synchronizing-and-error-processing routine, 
module IGGO19AR. The Put routine then moves the record from the work 
area to the buffer, updates the block-length field, and returns control to the 


processing program. 


The PUTX routine operates as follows: 


It receives control when a PUTX macro instruction is encountered in a 
processing program. 


It obtains the DCBRECAD value of the input DCB, which points to the 
present record in the input buffer. 


It enters the Put routine at the start. The Put routine then uses the input 
DCBRECAD value instead of the work area address. 


The TRUNC routine operates as follows: 


It receives control when a TRUNC macro instruction is encountered in a 
processing program. 


It issues a BALR instruction to pass control of the present buffer to the 
end-of-block routine. 


It issues another BALR instruction to obtain a new buffer through the 
output-synchronzing-and-error-processing routine, module IGGO19AR. 


It determines the address of the first segment of the new buffer and then 
returns control to the processing program. 


Put Module IGG019BP: Module IGGO19BP presents the processing program 
with the address of the next available buffer segment for a variable-length 
record. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Output 


and the DCB specifies: 


Put 

Simple buffering 

Locate operating mode 

Variable-length spanned (unblocked or blocked) record format 


Logical record interface 


The module consists of a Put routine and a TRUNC routine. 


The Put routine operates as follows: 


It receives control when a PUT macro instruction is encountered in a 
processing program. 


It tests whether a spanned record was to have been written. 


If the last record written was not a spanned record, it determines the : 
address of the next buffer segment using the length field of the last record 
segment moved by the processing program. 


It checks the value placed into the DCBLRECL field to determine if a 
buffer is ready for emptying and if a new empty buffer is needed. 


2) 


wi 


If no EOB condition exists, it tests for blocked records. 


If blocked records are specified, it presents the address of the next buffer 
segment to the processing program and returns control to the processing 
program. 


If unblocked records are specified, it issues a BALR instruction to pass the 
present buffer to the EOB routine. The Put routine issues another BALR 
instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module IGGO19AR, 
and determines the address of the first segment of the new buffer. The Put 
routine tests whether the present record to be written can fit entirely in the 
new buffer. 


If the record fits, the Put routine then presents this address to the 
processing program and returns control to the processing program. 


If the record does not fit, the routine saves the record address in the record 
area, obtains the address within the record area with the proper alignment, 
sets the spanned-record flag in the IOB, presents the address in the record 
area to the processing program, and returns control to the processing 
program. 


If an EOB condition exists, it tests whether a minimum record segment (at 
least 5 bytes) can fit in the present buffer. 


If it fits, the routine saves the record address, obtains the address within 
the record area, sets the spanned-record flag in the IOB. presents the 
address to the processing program, and returns control to the processing 
program. 


If it does not fit, the routine issues a BALR instruction to pass the present 
buffer to the EOB routine. The routine then issues another BALR 
instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, IGGO19AR, and 
determines the address of the first segment of the new buffer. The routine 
tests whether the present record can fit entirely in the new buffer. 


If a spanned record was to be written out, it restores the record address, 
determines the length of the segment that can fit in this buffer, moves the 
segment from the record area to the buffer, and sets the proper flags for 
the segment. 


If more segments are required, the routine issues a BALR instruction to 
pass the present buffer to the EOB routine. The Put routine issues another 
BALR instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module IGGO19AR, 
and determines the address of the first segment of the new buffer. It moves 
the remaining bytes of data from the record area to the buffer and sets the 
proper flags for the segment. This step continues until the entire spanned 
record has been segmented. The routine then turns off the spanned-record 
flag and determines the address of the next buffer segment. 


The TRUNC routine causes an EOB condition by setting the DCBRECAD 
and DCBEOBATD fields so that they are equal. It then returns control to the 
processing program. 


When a TRUNC macro instruction is issued after a spanned record was 
written, this routine branches to the Put routine to write out the last record 
(the spanned record) and then truncates the block that contains the last 
segment of that spanned record. 
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Put Module IGG019DJ (SYSIN/SYSOUT): Module IGGO019D]J interfaces 

with a JES to pass the present record into the system output stream. For 

locate mode it presents the processing program with the address of the next 

available buffer segment. J. 


The Open executor selects and loads this module if the open parameter list 
specifies: 

Output (SYSOUT specified on the DD statement) 
and the DCB specifies: 

Put, PUTX 

Simple buffering 

Locate, move, or data operating mode 

Fixed, undefined, or variable-length record format 

Spanned records 

Logical record interface 


The module consists of PUT, PUTX, and TRUNC macro instructions. See 
Diagram M for an overview of the SAM-SI processing for QSAM. The Get 
routine is also in this module. It is described in the section on simple-buffering 
Get routine (see Figure 1). 


The Put routine operates as follows: 


e It receives control when a PUT macro instruction is encountered in the 
processing program. 


e It determines the type of PUT request and performs the RPL initialization 
necessary to make the translation to a JES PUT request. ») 


e The record address is placed in RPLAREA and the length of the record is 
placed in RPLRLEN. 


For move mode the record address is obtained from register 0 on entry to 
the put routine. For locate mode RPLAREA was set up on the previous 
invocation of the put routine. 


For all record formats other than variable-type, record length is determined 
by DCBLRECL. For variable format, the current RDW specifies the 
record size, unless data mode for variable-length spanned records is 
requested, in which case DCBPRECL contains the record length. Also for 
variable format, the RDW is excluded from the output record by adjusting 
RPLAREA past the RDW and decrementing the record length by four. 


Record Format Value of RPLRLEN 
Variable-length record format RDW length -4 

(move or locate mode) 
Variable-length record format value equals total length 

(spanned records, locate mode) of all segments in a 

logical record 

Variable-length Spanned record format RDW length -4 

(move mode) ® 
Variable-length Spanned record format DCBPRECL 

(data mode) 
Fixed and undefined-length DCBLRECL 

record format (move or locate mode) ) 


e If processing is in locate mode with variable-length spanned record format, 
the present segment is moved to the record area. If the SDW indicates the 
logical record is not complete, the address for the next segment is loaded 
into register 1 and control is returned to the processing program. 


e It passes control to the job entry subsystem for data transfer by issuing a 
PUT macro instruction against the RPL. The return code in register 15 is 
tested upon return from the JES. 


e If acontrol character is indicated in the DCBRECFM field of the DCB, 
the RPLAREA pointer to the record will be adjusted to point past the 
control character and the RPLRLEN will be reduced by 1. The address of 
the control character is placed in the RPLCCHAR field. 


Upon return, register 15 and the RPLRTNCD and RPLCNDCD fields are 
tested. 


e If an error condition is detected, control is passed to the error-processing 
routine, IGGO19AH. (See Figure 14). 


e For normal completion, the address in the RPLAREA field is placed in 
register 1 for locate mode. The RPLAREA field contains the address of 
the next available buffer. Registers are restored and control is returned to 
the processing program. 


The PUTX routine operates as follows: 


e It receives control when a PUTX macro instruction is encountered in the 
processing program. This routine processes only the output mode of the 
PUTX macro instruction. 


e The address of the input buffer to be written is located through the 
DCBRECAD field of the input DCB. 


e After having located the output record, the request is then processed by 
the Put routine as a PUT, move mode request. 


The TRUNC routine receives control when a CNTRL or TRUNC macro 
instruction is issued. Module IGGO19DJ does not do any processing for these 
macro instructions. Control is returned to the processing program by 
IGGO19DJ. 


Put Module IGGO019FG: Module IGGO19FG moves the data portion of the 
variable-length record into the next available buffer segment. The Open 
executor selects and loads this module if the Open parameter list specifies: 


Output 
and the DCB specifies: 

Put 

Simple buffering 

Data operating mode 

Variable-length (unblocked or blocked) record format, spanned 
The module consists of a Put routine and a TRUNC routine. 
The Put routine operates as follows: 


e It receives control when the processing program issues a PUT macro 
instruction. 
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e It determines the possible location of the next buffer segment by adding 
the length of the previous record or record segment to the previous buffer 
segment address. This address is in the DCBRECAD field. 


e It then compares the length of the next record with the remaining buffer ~o 
capacity. 2 


e If the record will fit, the routine moves the record, updates the length field 
of the block descriptor word (BDW), and checks for blocked records. 


e If blocked records are specified, the routine returns control to the 
processing program. If unblocked records are specified, the routine issues a 
BALR instruction to pass the current buffer to the EOB routine. The Put 
routine issues another BALR instruction to obtain a new buffer through 
the output-synchronizing-and-error-processing routine, module 
IGGO19AR. The Put routine then builds a new block descriptor word 
(BDW) and returns control to the processing program. 


e If the record will not fit, the routine determines whether there are 5 or 
more unused bytes remaining in the buffer. If there are, the Put routine 
breaks the current record so that the first segment fills the buffer. The 
remaining segment will be placed in subsequent buffers. The length field in 
the segment descriptor word (SDW) of the first segment is updated to 
reflect the length of the segment. The third byte of this SDW is set to 
X‘Q1’ to indicate that this segment is the first of a multisegment record. 
After writing the buffer, the Put routine does not return control to the 
processing program until the entire record has been processed. The routine 
forms the remainder of the current record into a new segment. The new 
segment is constructed in a new buffer; the third byte of the SDW of the 
newly created segment is set to X‘02’ if this segment is the last of a 
multisegment record. If there are other segments, the third byte is set to 
X‘03’ to indicate that this segment is neither the first nor the last of a J 
multisegment record. Newly created segments are processed as any other 
record. 


The TRUNC routine operates as follows: 


e It receives control when a TRUNC macro instruction is encountered in a 
processing program. 


e It issues a BALR instruction to pass control of the present buffer to the 
end-of-block routine. 


e It issues another BALR instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module IGGO19AR. 


e It determines the address of the first segment of the new buffer and then 
returns control to the processing program. 
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Put Module IGG019FJ: Module IGGO19FJ presents the processing program 
with the address of the next available buffer segment for a variable-length 
record. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Output 
and the DCB specifies: 

Put 

Simple buffering 

Locate operating mode 

Variable-length (unblocked or blocked) record format, spanned 
The module consists of a Put routine and a TRUNC routine. 


x 


The Put routine operates as follows: 


e It receives control when the processing program issues a PUT macro 
instruction. 


e It determines the address of the next buffer segment by adding the address 
of the last record or record segment moved to the buffer and the length of 
that record or record segment. The length of the record segment is in the 
SDW. 


e It checks the buffer to see if there are five or more unused bytes. 


e If there are 5 or more unused bytes remaining in the buffer, the Put routine 
places their address into register 1 for the processing program. The Put 
routine places the exact number of bytes left in the buffer into register 0 
for the processing program. The Put routine then returns control to the 
processing program. 


e If the buffer contains fewer than 5 unused bytes, the routine issues a 
BALR to the EOB routine. The Put routine issues another BALR 
instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module IGGO19AR, 
and determines the address of the first segment of the new buffer. The Put 
routine then builds a new block descriptor word (BDW) and returns 
control to the processing program. 


The TRUNC routine causes an EOB condition by setting the DCBRECAD 
and DCBEOBAD fields so that they are equal. It then returns control to the 
processing program. 


Put Module IGGO19FL: Module IGGO19FL moves the current 
variable-length record into the next available buffer segment. The Open 
executor selects and loads this module if the Open parameter list specifies: 


Output 

and the DCB specifies: 
Put 
Simple buffering 
Move operating mode 


Variable-length (unblocked or blocked) record format, spanned 


Method of Operation 51 


Update Mode PUTX Routine 


52 OS/VS2 SAM Logic 


The module consists of a Put routine and a TRUNC routine. 


The Put routine operates as follows: 


It receives control when the processing program issues a PUT macro > 
instruction. j 


It determines the possible location of the next buffer segment by adding 
the length of the previous record or record segment to the previous buffer 
segment address. This address is in the DCBRECAD field. 


It then compares the length of the next record with the remaining buffer 
capacity. 


If the record will fit, the routine moves the record, updates the length field 
of the block descriptor word (BDW), and checks for blocked records. 


If blocked records are specified, the routine returns control to the 
processing program. If unblocked records are specified, the routine issues a 
BALLR instruction to pass the current buffer to the EOB routine. The Put 
routine issues another BALR instruction to obtain a new buffer through 
the output-synchronizing-and-error-processing routine, module 
IGGO19AR. The Put routine then builds a new block descriptor word 
(BDW) and returns control to the processing program. 


If the record will not fit, the routine determines whether there are five or 
more unused bytes remaining in the buffer. If there are, the Put routine 
breaks the current record so that the first segment fills the buffer. The 
remaining segment is placed in subsequent buffers. The length field in the 
segment descriptor word (SDW) of the first segment is updated to reflect 
the length of the segment. The third byte of this SDW is set to X‘01’ to 
indicate that this segment is the first of a multisegment record. After 
writing the buffer, the Put routine does not return control to the processing » 
program until the entire record has been processed. The routine forms the 
remainder of the current record into a new segment, which is constructed 
in a new buffer. The third byte of the SDW of the newly created segment 
is set to X‘02’ if this segment is the last of a multisegment record. If there 
are other segments, the third byte is set to X‘03’ to indicate that this 
segment is neither the first nor the last of a multisegment record. Newly 
created segments are processed as any other record. 


The TRUNC routine operates as follows: 


It receives control when a TRUNC macro instruction is encountered in a 
processing program. 


It issues a BALR instruction to pass control of the present buffer to the 
end-of-block routine. 


It issues another BALR instruction to obtain a new buffer through the 
output-synchronizing-and-error-processing routine, module IGGO19AR. 


It determines the address of the first segment of the new buffer and then 
returns control to the processing program. 


The update mode PUTX routine differs from other Put routines in that it ~* 

shares its buffers (as well as the DCB and the IOBs) with the update mode 

Get routine. It is the update mode Get routine that determines the address of 

the segment, when the end of the buffer is reached and a new buffer is | 
needed. Thus, all that remains for the PUTX routine is to flag the block for J 
output. 


€ 


End-of-Block Routines 


There is one update mode Put routine; it is part of module IGGO19AE, which 
is described under ‘“‘Update Mode Get Routine” (see Figure 5). 


The end-of-block routines are selected for use with a particular data set on 
the basis of the access conditions specified by the processing program for that 


data set. 


Unless INOUT or OUTIN is specified in the Open parameter list, one 
end-of-block routine is selected. If INOUT or OUTIN are specified, two 
end-of-block routines may be required. When user-totaling is specified, a 
special user-totaling routine is executed in conjunction with one of the 


end-of-block routines. 


An end-of-block routine receives control from a Get or a Put routing (when 
using QSAM), or from a Read or Write routine (when using BSAM). 


End-of-block routines are shared by BSAM and QSAM. QSAM flow of 
control is shown in Diagram F; BSAM flow is shown in Diagram G. Register 
usage at entry to and exit from end-of-block routines is as follows: 


Registers Entry Value 

0-1 N/A 

2 DCB t 

3 IOB-8 (or ICB) 

4-6 N/A 

7 Read or Write CCW 
offset 

8 Caller’s base 
address 

9-10 User’s registers 

11-12 User’s registers 

13 Save area 

14 Caller’s return 
address 

15 Entry point 
address 


Exit Value 


Not restored 
Unchanged 
Unchanged 
Not restored 
Unchanged 


Unchanged 
Restored* 

Unchanged 
Unchanged 
Unchanged 


Not restored 


*These registers are saved by end-of-block in the last two words of the save area, 


and are restored before returning to caller. 


Control passes from an end-of-block routine to the I/O supervisor, except 
when a channel program is chained to another one not yet executed. 
End-of-block routines provide device-oriented entries for the channel 
program, such as control characters and auxiliary storage addresses. 


If the American National Standard Code for Information Interchange 
(ASCII) is used, routines IGG0O19CC and IGG019CW issue an XLATE 
macro instruction which translates the entire buffer from EBCDIC to ASCII 
before writing the buffer. If format-D records are specified, the record 
descriptor words are converted from binary form to decimal form prior to 


translation. 


End-of-block routine descriptions are grouped as follows: 


e Ordinary end-of-block routines. These routines perform device-oriented 
processing when normal channel-program scheduling is used, except when 
it is used with an output data set with track overflow. 
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e Chained channel-program scheduling end-of-block routines. These routines 
perform device-oriented processing and attempt to chain channel programs 
when chained channel-program scheduling is used. 


e Track-overflow, end-of-block routine. This routine performs 
device-oriented processing. It computes segment lengths and constructs 
count fields when track overflow, which uses normal channel-program 
scheduling, is used with an output data set. 


e User-totaling routine. This routine moves the contents of the user’s totaling 
area to the user-totaling save area pointed to by the DEB. 


Ordinary end-of-biock routines process channel programs for all devices. This 
processing is independent of the progress of a previous channel program and 
causes access to proceed one channel program at a time. In the case of output 
data sets on direct-access devices, the routines limit the size of the block to 
the track capacity. For direct-access devices, an ordinary end-of-block routine 
computes auxiliary storage addresses for output data sets and input data sets 
with fixed-length standard record format to avoid end-of-track interruptions. 
For unit-record devices, these routines process control characters and 
PRTOV macro instructions. For an input data set with track overflow, 
progression from track to track is controlled by the track-overflow bit in the 
overflowing segment, not by computation of the end-of-block routine nor by 
an entry in the channel program. 


Figure 7 lists the routines available and the For conditions that cause a 
particular routine to be used. For QSAM, the Open executor selects one of 
the routines, loads it and places its address into the DCBEOB field. For 
BSAM and BPAM, the Open executor selects one of the routines, loads it, 
and places its address into both the DCBEOBR and DCBEOBW fields. If 
INOUT or OUTIN is specified, a second end-of-block routine may be 
selected and loaded. Its address replaces one of the duplicate addresses in the 
DCB. Figure 7, for example, shows that when normal channel-program 
scheduling is used and the device type is magnetic tape, routine IGG019CC is 
selected and loaded for use as the end-of-block routine for that DCB. 


End-of-Block Module IGG019CC: Module IGGO19CC causes a channel 
program to be scheduled. 


If ASCII coding is used, the entire output buffer is translated from EBCDIC 
to ASCH. 


The Open executor selects and loads this module if one of the following 
conditions exists: 


The DCB specifies normal channel-program scheduling and magnetic tape, 
card reader, or paper tape as the device type. 


The data set is opened for Input, and the DCB specifies normal 
channel-program scheduling, direct-access storage device, and a record 
format other than fixed-length standard. 


The data set is opened for INOUT or OUTIN, and the DCB specifies 
normal channel-program scheduling, direct-access storage device anda + 
record format other than fixed-length standard. The address of this module 
is placed in the DCBEORR field. 


The data set is opened for Update. 


ey 


Access Method Options Selections 

Normal! channel program X MW Ww IX &K K |X X XX |X K X |X XK XK |X K XK |X XK X|X XX X 
scheduling 

Input, or xX XxX xX XxX 

Update X X 

Output, or 

INOUT, OUTIN xX X |X XK X [|X Xx 


Card reader or paper xX xX 
tape reader 


Printer or Card Punch X xX IX X X [Xx x 
Print (3525) xX x 
Interpret Punch (3525) xX 


Data Protection Image 4 
(3525) 


Magnelic tape xX x 
Direct-access storage x X 1X XK XxX [xX 
Track Overflow x 


Record format not x xX 
fixed-length standard 


Record format is xX x 
fixed-length standard 


No control character xX x 


Machine control D4 x 
character 


ANS control character xX |X 
PRTOV-No user exit xX Xx 


label=(,.,IN) or x 
LABEL=(,,OUT) 
on DD card! 


User totaling facility X xX X X |X 
Associated Data Set (3525) xX xX xX xX xX xX 


IGGOI9AX2 AX AX AX AX|AX 

IGGOISCC cc cc ccicc CC CC 

IGGOISCD CD CD 

IGGOISCE CE CE|CE CE 

IGGOISCF CF/ CF 

IGGOI9CT! CT 

IGGOI9FK FK 
IGGOI9FQ FQ FQ 
IGGOISFU FU 
IGGOISTC TC TC TC 

IGGOI9STD TD|TD 


1. When either of these LABEL subparameters is specified and the data set is opened for INOUT or OUTIN, the OPEN executor loads module IGGOI9CT, in addition to one of the other 
end-of-block routines. 


2. This module is described later in this section under “Track-Overflow and User-Totaling Save Save Routines." 


Figure 7. Module Selector—Ordinary End-of-Block Modules 
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The module operates as follows: 


e It receives control when a Get or Put routine finds that a buffer is ready to 


be scheduled, or at the conclusion of the processing performed by a Read 
or Write routine. 


If the device type is magnetic tape, record format is variable, control is 
received from a Put or Write routine, and a check is made to see if at least 
18 bytes are to be written. If not, the record is padded with binary zeros up 
to 18 bytes or blocksize, whichever is less; however, with the ASCII 
feature, format-D records are padded with the ASCII padding character, 
X‘5F’, instead of the zeros. An EXCP macro instruction is issued and 
control is returned to the Put or Write routine. 


If the device type is magnetic tape and either the record format is not 
variable or control is not gained from a Put or Write routine, an EXCP 
macro instruction is issued and control is returned to the Get, Put, Read, or 
Write routine. 


If the device type is direct access and more than one IOB is associated with 
the DCB, the module does the following: 


a. It checks for a cylinder change in the IOBSEEK field in the next IOB by 
comparing it to the cylinder value in the DCBFDAD field in the DCB. 


b. It copies the IOBSEEK field in the next IOB into the DCBFDAD field 
in the DCB. 


c. If a change in cylinder value was found and the new cylinder value is on 
a page boundary (evenly divisible by 8), the DEBXFLGI field in the 
DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the 
next one. A GETMAIN for a 12-byte SVC 126 parameter list is issued 
before ICBCHKAR is issued. A related FREEMAIN is issued upon 
return from SVC 126. 


d. It issues an EXCP macro instruction and returns control to the GET or 
READ routine. 


If a 3525 associated data set is being used, a test is made to determine the 
status of the Read-sequence flag. 


a. If the Read-sequence flag (DCBQSWS field) is on and the associated 
data set is not Read and Print, a WIP message is issued, which indicates 
that either the Get or Read sequence is invalid. An ABEND (003) is 
issued with a return code of 01. If the Read-sequence flag is off, the 
macro sequence is assumed to be valid and the Read-sequence flag is 
turned on. 


b. Tests are made to determine if the associated data set is either Read, 
Punch, and Print, or Read and Punch. 


c. If either Read, Punch, and Print, or Read and Punch is specified in the 
FUNC parameter, a test is made to determine the status of the 
Punch-sequence flag. If the Punch-sequence flag (DCBOSWS field) is 
on, it is turned off. (This indicates to modules IGGO19CE and 
IGGO19CF that their calling routine is in the proper sequence.) 


d. If the associated data set is not Read, Punch, and Print, or Read and 
Punch, it is assumed that Read and Print is being used. 
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e. A test is made to determine the status of the Print-sequence flag 
(DCBQSWS). 


f. If the Print-sequence flag is on, it is assumed that the Print command 
has been issued. It is turned off so that proper sequencing may continue. 
If the Print-sequence flag is off, it is assumed that the Print command 
has not been issued. 


e If the device type is direct access and only one IOB is associated with the 
DCB, the module does the following: 


a. It checks for a cylinder change by comparing the cylinder value in the 
IOBSEEK field in the IOB with the cylinder value in the DCBFDAD 
field in the DCB. 


b. It copies the CCHHR portion of the DCBFDAD field in the DCB into 
the CCHHR portion of the IOBSEEK field in the IOB. 


c. If a change in cylinder value was found and the new cylinder value is on 
a page boundary (evenly divisible by 8), the DEBFLGS2 field in the 
DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the 
next one. A GETMAIN for a 12-byte SVC 126 parameter list is issued 
before ICBCHKAR is issued. A related FREEMAIN is issued upon 
return from SVC 126. 


d. It issues an EXCP macro instruction and returns control to the GET or 
READ routine. 


End-of-Block Module IGG019CD: Module IGGO19CD schedules a channel 
program after determining that the next block fits on a track within the 
allocated extents. 


The Open executor selects and loads this module if one of the following 
conditions exists: 


The data set is opened for output and the DCB specifies normal 
channel-program scheduling, no track-overflow, and direct-access storage 
as the device type. 


The data set is opened for input and the DCB specifies normal 
channel-program scheduling with direct-access storage as the device type. 


The data set is opened for INOUT or OUTIN and the DCB specifies 
direct-access device storage. If the record format (also specified in the 
DCB) is other than fixed-length standard, the address of this module is 
placed in the DCBEOBW field. 


If the record format is fixed-length standard, the address of this module is 
placed in both the DCBEOBR and DCBEOBW fields. 


The module operates as follows: 


e It receives control when a Get or Put routine finds that a buffer is ready to 
be scheduled, or at the conclusion of the processing performed by a Read 
or Write routine. 


e It calculates the block length using the overhead value for the last record. 
(This value is found in the resident I/O device table. The address of the 
table is in the DCBDVTBL field.) It compares the calculated block length 
with the value in the DCBTRBAL field of the DCB. 
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e If the block length is equal to or less than the DCBTRBAL field value, the 


module determines that the block fits on the track. 


If the block length exceeds the DCBTRBAL field value, the module finds 
the next track as follows: 


It converts the full device address (MBBCCHHR) of the present track 
into a relative address (TTR) by passing control to the IECPRLTV 
routine. 


It adds 1 to the value of TT. 


It passes control to the IECPCNVT routine, which converts the relative 
address of the next track into the full device address. 


If there is another track in the allocated extents, its full address has been 
entered in the DCBFDAD field and the block fits on the track. 


If there is no other track in the allocated extents (as shown by the error 
return code from IECPCNVT routine), an EOV condition exists. The 
module sets the DCBCIND! field in the DCB and the CSW field in the 
IOB to show this, and returns control to the Get, Put, Read, or Write 
routine without issuing an EXCP macro instruction. The EOV condition is 
eventually recognized and processed in QSAM by the synchronizing 
routine and in BSAM by the Check routine. 


When the module determines that the block fits on the track, the module 
calculates the actual block length, using the overhead value for other than 
the last record. (This value is found in the resident I/O device table.) It 
adjusts the value in the DCBTRBAL field by this amount and updates the 
DCBFDAD field and the ID field of the count area of the block which is 
located immediately after the channel program. If the updated DCBFDAD 
value indicates record 1 on track 0 of a cylinder on a page boundary 
(evenly divisible by 8), a test is made for MSS window processing. If such 
processing is indicated in the DEBXFLG1 field of the DEB extension, the 
ICBCHKAR macro is issued to invoke SVC 126, which will relinquish the 
processed window and acquire the next one. A GETMAIN for a 12-byte 
SVC 126 parameter list is issued before ICBCHKAR is issued. A related 
FREEMAIN is issued upon return from SVC 126. The module then issues 
an EXCP macro instruction and returns control to the Get, Put, Read, or 
Write module. 


End-of-Block Module IGG019CE: Module IGGO19CE, if necessary, modifies 
channel programs for unit record output devices when ANS control characters 
are not used. The module then causes scheduling of the channel program, 


whether it was modified or not. The Open executor selects and loads this 
module if the DCB specifies: 


Normal channel-program scheduling 
Punch, or printer 


Machine control character, or no control character 


The module operates as follows: 


e It receives control when a Put routine finds that a buffer is ready to be 


scheduled, or at the conclusion of the processing performed by a Write 
routine. 


e It adjusts, in the channel program, the length and starting address either for 


the length field of variable-length records or for a control character. If 


»} 
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there are variable-length records and a control character, the module 
adjusts for both. 


If a control character is present, it inserts it as the command byte of the 
Write channel command word (CCW). 


If the device is a 3800 printer and OPTCD=J is specified, the module 
determines if the Table Reference Character in the current record refers to 
the translate table presently active in the device. If so, the Select Translate 
Table CCW which precedes the Write CCW is altered to a NOP. 
Otherwise, the Select CCW is modified to select the appropriate translate 
table. (If OPTCD=J is not specified, the common printer channel program 
is used.) 


It tests the DCB field at location DCBDEVT+1 for a PRTOV mask. If a 
PRTOV mask is present, the module temporarily inserts it into the length 
field of the NOP CCW and sets the first bit in the IOB. The PRTOV 
appendage IGGO19CL tests for the presence of the IOB bit and the CCW 
mask. 


If an associated data set is being used, a test is made to determine the 
status of the Punch-sequence flag. 


a. If the Punch-sequence flag (DCBOSWS) is on and the associated data 
set is not Punch and Print, a WIP message is issued which indicates that 
either the Put or Write sequence is invalid. An ABEND (003) is issued 
with a return code of 02. If the Punch-sequence flag is off, the macro 
sequence is assumed to be valid and the Punch-sequence flag is turned 
on. 


b. A test is made to determine if the associated data set is Read, Punch, 
and Print. If Read, Punch, and Print is specified in the FUNC 
parameter, a test is made to determine the status of the Read-sequence 
flag. 


c. If the Read-sequence flag is on, it is turned off. This allows proper 
sequencing to continue. If the Read-sequence flag is off, an ABEND is 
issued. 


d. A test is made to determine the status of the Print-sequence flag. 
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e. If the Print-sequence flag is on, proper sequencing continues. If it is off, 
modules IGGOI9CE and IGGOI9CF continue with their normal 
functions. 


f. If the associated data set is Punch and Print, the status of the 
Print-sequence flag is determined as previously explained for module 
IGGOLICC. 


It issues an EXCP macro instruction and returns control to the Put or 
Write routine. 


End-of-Block Module IGGOI9CF: Module IGGOI9CE modifies channel 
programs for unit record output devices when an American National Standard 
(ANS) control character is present. The module then causes scheduling of the 
channel program, whether it was modified or not. The Open executor seleets 
and loads this module if the DCB specifies: 


Normal channel-program scheduling 
Punch or printer 


ANS control character 


The module operates as follows: 


It receives control when a Put routine finds that a buffer is ready to be 
scheduled, or at the conclusion of the processing performed by a Write 
routine. 


It adjusts, in the channel program, the length and starting address for the 
control character, and for the length field of variable-length records. 


It translates the control character and inserts it as the command byte of the 
control channel command word (CCW) which precedes the Write CCW 
(or the Select CCW, if the device is a 3800 printer with OPTCD=3J 
specified). 


If the device is a 3800 printer and OPTCD=J is specified, the module 
determines if the Table Reference Character in the current record refers to 
the translate table presently active in the device. If so, the Select Translate 
Table CCW which precedes the Write CCW is altered to a NOP. 
Otherwise, the Select CCW is modified to select the appropriate translate 
table. (If OPTCD=J is not specified, the common printer channel program 
is used.) 


It tests the DCB field at location DCBDEVT+1 fora PRTOV mask. If a 
PRTOV mask is present, the module inserts it into the length field of the 
control CCW and sets the first bit in the IOB. The PRTOV appendage 
IGGOI19CL tests for the presence of the LOB bit and the CCW mask. 


If an associated data set is being used, a test is made to determine the 
status of the Punch-sequence flag. 


a. If the Punch-sequence flag (DCBQOSWS) is on and the associated data 

set is not Punch and Print, a WTP message is issued which indicates that 
cither the Put or Write sequence is invalid. An ABEND (003) is issucd 
with a return code of 02. If the Punch-sequence flag is off, the macro 
sequence is assumed to be valid and the Punch-sequence flag is turned 
on. 


b. A test is made to determine if the associated data set is Read, Punch, 
and Print. If Read, Punch, and Print is specified in the FUNC 


Method of Operation 89 


60 OS/VS2 SAM Logte 


parameter, a test is made to determine the status of the Read-sequence ) 
flag. com 


c. If the Read-sequence flag (DCBOQSWS) is on. it is turned off. This 
allows proper sequencing to continue. If the Read-sequence flag is off, 
an ABEND is issued. 


d. A test is made to determine the status of the Print-sequence flag 
(DCBQOSWS). 


e. If the Print-sequence flag is on, proper sequencing continues. If it is off, 
modules IGGO19CE and IGGOI9CF continue with their normal 
functions. 


f. If the associated data set is Punch and Print, the status of the 
Print-sequence flag is determined, as previously explained for module 
IGGO19CC. 


e It issues an EXCP macro instruction and returns control to the Put or 
Write routine. 


End-of-Block Module IGGO19CT: Module IGGOI9CT sets error indicators in 
the user's DCB and IOB. The Open executor selects and loads this module if 
the following conditions exist: 
The data set is opened for INOUT and the DD card specifies 
LABEL=(,,.IN) 


or 


The data set is opened for OUTIN and the DD card specified | 
LABEL=(,,,OUT) 2) 


The module operates as follows: 


e It receives control and sets error indicators tn the user's DCB and LOB 
when either of the following conditions exists: 


The DD card specifies LABEL =(.,.IN), the data set is opened for 
INOUT., and a WRITE macro instruction ts issued, 


The DD card specifies LABEL=(,,,OUT), the data set is opened for 
OUTIN, and a READ macro instruction ts issued. 


End-of-Block Module IGGO19FK: Module IGGOI9FK causes a channel 
program to be scheduled. The Open executor selects and loads this module, if 
the following conditions are described in the DCB: 


Data protection image (DPI) is specified for the 3525 with a Read and 
Punch, or Read, Punch, and Print file with normal channel-program 
scheduling. 


The module operates as follows: 
e It receives control when a Put routine finds that a buffer is ready to be 
scheduled, or at the conclusion of the processing performed by a Write 
routine. ’ 
e If the Read associated data set has been opened, a test is made to 
determine the status of the Read-sequence flag. 
e If the Read associated data set has not been opened, or if the y 
Read-sequence flag is off. a WTP message ts issued which indicates that 
the sequence is invalid. An ABEND (003) is then issued with a return code 
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of 02. If the Read-sequence flag is on (indicating proper sequencing), it is 
turned off. 


A test is then made to determine the status of the Punch-sequence flag 
(DCBOQOSWS field). If the Punch-sequence flag is on, a WTP message is 
issued, followed by an ABEND (003). If the Punch-sequence flag is off, it 
is turned on so that proper sequencing may continue. 


It then establishes the buffer area (for the punch operation) according to 
the format of the data protection image. If a byte in the DPI is blank 
(X°40°), the module blanks out the corresponding byte in the output punch 
buffer. If the byte is not blank, the output buffer is not altered. Both areas 
are 80 bytes in length. 


It returns control to either the Put or Write routine that called it. 
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End-of-Block Module IGG019FQ: Module IGGO19FQ causes a channel 
program to be scheduled to the 3525 Printer. The Open executor selects and 
loads this module, if the following conditions exist: 


A Print; Read, Punch, and Print; Read and Print; or Punch and Print file is 
specified for the 3525 with either a machine control character, an ANS 
control character, or no control character at all with normal 
channel-program scheduling. 


The module operates as follows: 


It receives control when a Put routine finds that a buffer is ready to be 
scheduled, or at the conclusion of the processing performed by a Write 
routine. 


If either a Read, Punch, and Print or Punch and Print associated data set 
has been specified, a test is made to determine the status of the Print 
sequence flag. If the Print-sequence flag is on, the CCW pointer is 
modified to point to the Print CCW. 


If both the Print- and Punch-sequence flags are off, a WIP message is 
issued which indicates that the sequence is invalid. An ABEND (003) is 
then issued with a return code of 03. 


If the Print-sequence flag is off, but the Punch-sequence flag is on, the 
module locates the Punch DCB and turns off the Punch-sequence flag. The 
CCW pointer is then modified to point to the Print CCW and the 
Print-sequence flag is turned on. 


If a Read and Print associated data set is specified and the Print-sequence 
flag is on, the CCW pointer is modified to point to the Print CCW. 


If the Print-sequence flag is off, but the Read-sequence flag is on, the Read 
DCB is located and the Read-sequence flag is turned off. The CCW 
pointer is then modified to point to the Print CCW and the Print-sequence 
flag is turned on. 


After sequence checking is completed, the module tests for ANS and 
machine control characters. If ANS is specified, the control character is 
analyzed to determine which line the data is to be printed on. An OR 
operation is then performed on that line number and the Print CCW. 


If ANS control characters are not specified, the module tests for record 
format and machine control characters. If machine control characters are 
specified, they are inserted into the CCW and the buffer address is 
increased by one. 


If no control character is specified, and two-line printing is specified in the 
FUNC parameter, the module tests to determine line positioning on the 
card. This is reflected in the operation code of the Print CCW. 


If no control character is specified, and multiline printing is specified, tests 
are again made to determine line positioning. (Output lines are printed on 
successive lines. ) 


If no control characters are specified, or if they are specified and have been 
processed, or if either two-line or multiline positioning is complete, the 
module establishes the Write CCW and stores the Start address of the 
CCW for the input/output supervisor (IOS). 


If the PRTOV macro instruction is specified, a check is made for either 
channel 9 or 12 (depending on which channel is specified in the PRTOV 
macro instruction). 
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The channel program is then executed and a Wait command is issued. It 
returns control (via register 14) to either the Put or Write routine that — 
called it. 


End-of-Block Module IGG019FU: Module IGGO19FU causes a channel 
program to be scheduled. The Open executor selects and loads this module if 
one of the following conditions exists: 


INTERPRET PUNCH is specified for the 3525 with normal 
channel-program scheduling. 


INTERPRET PUNCH is specified for the 3525 with first control character 
for stacker selection or with no control character at all. 


The module operates as follows: 


It retrieves the data address from the Write CCW. 


It tests for record format to determine if machine control characters or 
ANS control characters are being used. 


If either machine or ANS control characters are being used, the data 
address is increased by one and the control character is inserted into the 
command byte of the Write CCW. 


If machine control characters are not specified, the data address remains 
unchanged. 


The module blanks out a print buffer. (The print buffer is a 64-byte area 
located 64 bytes past the beginning of the IOB.) It then moves the final 16 
characters of the output punch buffer into the last 16 bytes of the print 
buffer. 


The channel program start address is stored in the IOB. 
The channel program is then scheduled for execution. 


It returns control (via register 14) to either the Put or Write routine that 
called it. 


End-of-Block Module IGG019TC: The Open executor selects and loads this 
module if the user specified the user-totaling facility (that is, if bit 6 is 1 in 
DCBOPTCD) for his data set and if one of the following conditions exists: 


The DCB specifies normal channel-program scheduling and magnetic tape 
as the device type. 


The data set is opened for Output, and the DCB specifies normal 
channel-program scheduling, direct-access storage device, and a record 
format other than fixed-length standard. 


The data set is opened for INOUT or OUTIN, and the DCB specifies 
normal channel-program scheduling, direct-access storage device and a 
record format other than fixed-length standard. The address of this module 
is placed in the DCBEOBR field. 


The data set is opened for Update. 


The module operates as follows: 


e It receives control when a Put routine finds that a buffer is ready to be 


scheduled, or at the conclusion of the processing performed by a Write 
routine. 


e If the device type is magnetic tape, the module issues an EXCP macro 
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instruction and returns control to the Put or Write routine. 
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| ° It issues a BALR instruction to the user-totaling save routine, IGGO19AX, 
to place the user’s total in the user-totaling save area, which is pointed to 
by the DEB. 


e If the device type is direct access and more than one IOB is associated with 
the DCB, the module does the following: 


a. It checks for a cylinder change in the IOBSEEK field in the next IOB by 
comparing it to the cylinder value in the DCBFDAD field in the DCB. 


b. It copies the IOBSEEK field in the next IOB into the DCBFDAD field 
in the DCB. 


c. If a change in cylinder value was found and the new cylinder value is on 
a page boundary (evenly divisible by 8), the DEBXFLG1 field in the 
DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the 
next one. A GETMAIN for a 12-byte SVC 126 parameter list is issued 
before ICBCHKAR is issued. A related FREEMAIN is issued upon 
return from SVC 126. 


d. It issues an EXCP macro instruction and returns control to the GET or 
READ routine. 


e If the device type is direct access and only one IOB is associated with the 
DCB, the module does the following: 


a. It checks for a cylinder change by comparing the cylinder value in the 
IOBSEEK field in the IOB with the cylinder value in the DCBFDAD 
field in the DCB. 


b. It copies the CCHHR portion of the DCBFDAD field in the DCB into 
the CCHHR portion of the IOBSEEK field in the IOB. 


c. If a change in cylinder value was found and the new cylinder value is on 
a page boundary (evenly divisible by 8), the DEBFLGS2 field in the 
DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the 
next one. A GETMAIN for a 12-byte SVC 126 parameter list is issued 
before ICBCHKAR is issued. A related FREEMAIN is issued upon 
return from SVC 126. 


d. It issues an EXCP macro instruction and returns control to the GET or 
READ routine. 


End-of-Block Module IGG019TD: Module IGGO19TD schedules a channel 
program after determining that the next block fits on a track within the 
allocated extents. 


The Open executor selects and loads this module if the user specified the user 
totaling facility (that is, if bit 6 is 1 in DCBOPTCD) for his data set and if 
one of the following conditions exists: 


The data set is opened for Output, and the DCB specifies normal 
channel-program scheduling, no track-overflow, and direct-access storage 
as the device type. 


The data set is opened for Input, and the DCB specifies normal 
channel-program scheduling with direct-access storage as the device type. 
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The data set is opened for INOUT or OUTIN, and the DCB specifies 
direct-access storage device. If the record format (also specified in the 
DCB) is other than fixed-length standard, the address of this module is 
placed in the DCBEOBW field. If the record format is fixed-length 
standard, the address of this module is placed in both the DCBEOBR and 
the DCBEOBW fields. 


The module operates as follows: 


It receives control when a Get or a Put routine finds that a buffer is ready 
to be scheduled, or at the conclusion of the processing performed by a 
Read or Write routine. 


It issues a BALR instruction to the user-totaling save routine, IGGO19AX, 
to place the user’s total in the user-totaling save area, which is pointed to 
by the DEB. 


It calculates the block length using the overhead value for the last record. 
(This value is found in the resident I/O device table. The address of the 
table is in the DCBDVTBL FIELD.) It compares the calculated block 
length with the value in the DCBTRBAL field of the DCB. 


If the block length is equal to or less than the DCBTRBAL field value, the 
module determines that the block fits on the track. 


If the block length exceeds the DCBTRBAL field value, the module finds 
the next track as follows: 


It converts the full device address (MBBCCHHR) of the present track 
into a relative address (TTR) by passing control to the IECPRLTV 
routine. 


It adds 1 to the value of TT. 


It passes control to the IECPCNVT routine, which converts the relative 
address of the next track into the full device address. 


If there is another track in the allocated extents, its full address has been 
entered in the field DCBFDAD and the block fits on the track. 


If there is no other track in the allocated extents (as shown by the error 
return code from routine IECPCNVT), an EOV condition exists. The 
module sets the DCBCIND1 field in the DCB and the CSW field in the 
IOB to show this, and returns control to the Get, Put, Read, or Write 
routine without issuing an EXCP macro instruction. The EOV condition is 
eventually recognized and processed—in QSAM by the synchronizing 
routine and in BSAM by the Check routine. 


When the module determines that the block fits on the track, the module 
calculates the actual block length, using the overhead value for other than 
the last record. (This value is found in the resident I/O device table.) It 
adjusts the value in the DCBTRBAL field by this amount, and updates the 
DCBFDAD field and the ID field of the count area of the block (located 
immediately after the channel program). If the updated DCBFDAD value 
indicates record 1 on track 0 of a cylinder on a page boundary (evenly 
divisible by 8), a test is made for MSS window processing. If such 
processing is indicated in the DEBXFLGI field of the DEB extension, the 
ICBCHKAR macro is issued to invoke SVC 126, which will relinquish the 
processed window and acquire the next one. A GETMAIN for a 12-byte 
SVC 126 parameter list is issued before ICBCHKAR is issued. A related 
FREEMAIN is issued upon return from SVC 126. The module then issues 
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an EXCP macro instruction and returns control to the Get, Put, Read, or 
Write module. 


Chained Channel-Program Scheduling End-of-Block Routines 


Chained channel-program scheduling consists of joining the channel programs 
before execution and disconnecting and posting the channel programs after 
execution. Joining is performed by the end-of-block routines and mainly uses 
the input/output block (IOB); disconnecting and posting is performed by 
appendages and uses the interruption control block (ICB). (For a description 
of the disconnecting process, refer to the program controlled interruption 
(PCI) appendages.) The IOB constructed by the Open executor when chained 
channel-program scheduling is used differs from the IOB used in normal 
channel-program scheduling. These differences are illustrated in Figure 8 and 
tabulated in Figure 10. 


These routines join channel programs so that the channel executes successive 
channel programs without interruption as if they were one continuous channel 
program. To join the present channel program to one already scheduled, the 
end-of-block routine finds the last CCW of the preceding channel program by 
referring to the IOB and changes that CCW from a NOP command to a TIC 
command. If this joining is performed before the channel attempts to execute 
(more precisely, before it fetches) that CCW, the joining process is 
successful. If the execution of the preceding channel program is completed 
while the routine is operating, the joining is unsuccessful. 


The routine tests the success or failure of the joining by testing whether the 
IOB has been posted as completed. If the IOB is not posted as completed, 
control is returned to the calling program. If the IOB is posted, the routine 
tests the ICB for the current channel program. If completed, control returns 
to the calling program; if not completed, the routine resets the IOB for the 
EXCP macro instruction and passes control to the I/O supervisor. 
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(a) 
SAM Prefix to IOB when 
normal channel-program 
scheduling is used 


Next 1OB Event Control Block 


Standard IOB 


ECB Address * 


See 2 Words ee 


* When QSAM is used, the address 
is that of the ECB in the 
SAM prefix; when BSAM is used 
the address is that of the ECB 
in the data event control block 


(DECB). 


(b) 
SAM Prefix to IOB when 
chained channel -program 
scheduling is used 


Event Control Block 
First ICB Last NOP CCW 


Standard |OB 


ECB Address ** 


—__——- 2 Words —_______> 


** Always shows the address of 
the ECB in the SAM prefix, 
irrespective of whether QSAM 
or BSAM is used. 


Figure 8. IOB SAM Prefixes for Normal and for Chained Scheduling 

——$—$—<——$— 
The chained scheduling end-of-block routines, like the ordinary end-of-block 
routines, provide device-oriented entries for channel programs. For 
direct-access devices they compute auxiliary storage addresses; for 
unit-record devices they process control characters. (No processing is 
performed for the PRTOV macro instruction since it and chained scheduling 
are mutually exclusive.) There are six chained scheduling end-of-block 
routines, each of which performs joining and channel program entry 
processing for a different set of access condition options. Figure 9 lists the 
available routines and the conditions that cause a particular routine to be 


used. 


For QSAM, the Open executor selects one of the routines, loads it, and places 
its address into the DCBEOB field. For BSAM and BPAM, the Open 
executor selects one of the routines, loads it, and places its address into both 
the DCBEOBR and DCBEOBW fields. If INOUT or OUTIN is specified, a 
second end-of-block routine may be selected and loaded. Its address replaces 


one of the duplicate addresses in the DCB. 


Figure 9 shows that when chained scheduling is used, the open mode is Input, 
the device type is magnetic tape, and routine IGGO19CW is selected and 
loaded for use as the end-of-block routine for the DCB. 
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Access Method Options Selections 


Chained channel program X XK X XK XK X X xX XK X 


scheduling 
Input, or X X 


Card reader X 

Printer or card punch X xX X 
Magnetic tape >, « X xX 

Direct-access storage X X X 


No control character X 

Machine control character xX 

ANS control character X 
User-totaling facility X xX 


CW CW CW 


TW 


CX CX 


1. This module is described later in this section under “Track-Overflow and User-Totaling Save Routines.” 
Figure 9. Module Selector—Chained Channel-Program Scheduling, End-of-Block 
| 


Modules 
Prefix Parameter Normal Scheduling Chained Scheduling 
Number of IOBs As many as there are Only 1 (there are as 
buffers or channel many ICBs as there are 
programs buffers or channel programs) 
Size of SAM prefix 2 words 4 words 
Contents of link Address of the next Flags 
address field IOB Offsets 
Use of ECB field Used in QSAM to post Used in QSAM and BSAM to 
channel program post a channel program 
execution (in BSAM, execution that is 
the ECB in the DECB terminated by channel-end 
is used) interruption (that is, 
channel program chaining 
has been broken) 
Contents of Field does not exist Address of the first ICB 
IOBFICB field 
Contents of Field does not exist Address of NOP CCW of last 
IOBLNOF field scheduled channel program 


Figure 10. Comparison of the IOB SAM Prefixes for Normal and for Chained Scheduling 


« 
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End-of-Block Module IGG019CV: Module IGG019CV computes from the 
track balance (and from further allocated extents on this volume, if 
necessary) a valid storage address for a channel program for an output data 
set on a direct-access device and attempts to join the channel program to the 
preceding one. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Output 

and the DCB specifies: 
Chained channel-program scheduling 
Direct-access storage 

The module operates as follows: 


e It receives control from a Put routine when that routine finds that a buffer 
is ready to be scheduled, or from a Write routine at the conclusion of its 
processing. 


e It calculates the block length using the overhead value for a last block on a 
track. (This value is found in the resident I/O device table. The address of 
the table is in the DCBDVTBL field.) It compares the calculated block 
length with the value in the DCBTRBAL field of the DCB. 


e If the block is equal to or less than the DCBTRBAL field value, the 
module determines that the block fits on the track. 


e If the block length exceeds the DCBTRBAL field value, the module 
calculates the next sequential track address and compares it with the end 
address of the current extent shown in the data extent block (DEB). 


e If no end-of-extent condition exists, it determines that the block fits on the 
track. 


e If an end-of-extent condition exists, it seeks a new extent in the DEB. 


e If anew extent exists, it updates the DCBFDAD and DCBTRBAL fields 
and determines that the block fits on the track. 


e If there is no further extent, an EOV condition exists. The module sets the 
DCBCIND1 field in the DCB and the CSW field in the IOB to show 
end-of-volume, and returns control to the Get, Put, Read, or Write routine 
without issuing an EXCP macro instruction. The EOV condition is 
eventually recognized and processed—in QSAM by the synchronizing 

‘routine, and in BSAM by the Check routine. 


e If the module determines that the block fits on the track, the module 
calculates the actual block length using the overhead value for a block that 
is not the last on a track. (This value is found in the resident I/O device 
table.) It adjusts the value in the DCBTRBAL field by this amount and 
updates the DCBFDAD field and the ID field of the count area of the 
block located immediately after the channel program. 


e If the ICBSEEK value indicates record 1 on track 0 of a cylinder on a page 
boundary (evenly divisible by 8), a test is made for MSS window 
processing. If such processing is indicated in the DEBXFLGI1 field of the 
DEB extension, the ICBCHKAR macro is issued to invoke SVC 126, 
which will relinquish the processed window and acquire the next one. A 
GETMAIN for a 12-byte SVC 126 parameter list is issued before 
ICBCHKAR is issued. A related FREEMAIN is issued upon return from 
SVC 126. 
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« If the block fits on the track, the module next attempts to join the channel 
program for the current buffer to the preceding channel program (that is, > 
chain schedule) by: . 


Setting the ICB to not-complete. 


Inserting the address of either the Write or the Search CCW of this 
channel program into the NOP CCW of the preceding channel program. 
The address of the Write CCW is inserted if the present and the 
preceding channel programs address the same track. The address of the 
Search CCW is inserted if the present and the preceding channel 
programs address different tracks. In this case, the Search CCW 
addresses record zero of the next track. 


Changing the NOP CCW in the preceding channel Program to a TIC 
CCW. 


Updating the SAM IOB prefix block to point to the end of the current 
channel program. 


e It determines whether the joining was successful by testing the ECB 
(pointed to by the IOB) to see if the I/O supervisor has posted the I/O 
event as completed. 


e If the I/O supervisor did not post the event as completed, the joining was 
successful and the routine returns control to the calling routine. 


¢ If the I/O supervisor did post the event as completed, the routine tests the 
ICB for the present channel program to find whether the joining was 
successful or not. 


e If the present ICB remains unposted, the present channel program was not J 
joined to the preceding one. The routine prepares to cause restart of the 
channel by copying the Seek address and the channel program start address 
from the current ICB into the IOB and uses the EXCP macro instruction 
to schedule the channel program. It then returns control to the calling 
routine. 


« If the present ICB is posted as completed, the present channel program 
was joined successfully. (The routine was interrupted long enough, 
between the joining and the testing, for the channel program to be 
executed and for the channel-end appendage to post the ICB.) The routine 
returns control to the calling routine. 


End-of-Block Module IGG019CW: Module IGG019CW attempts to join the 
present channel program to the last one in the chain of scheduled channel 
programs. If ASCII is used, the entire output buffer is translated from 
EBCDIC to ASCII. The Open executor selects and loads this module if one 
of the following conditions exists: 


The Open parameter list specifies Input and the DCB specifies chained 
channel-program scheduling and any device. 


The Open parameter list specifies Output and the DCB specifies chained 
channel program scheduling and magnetic tape. 


The module operates as follows: 


e It receives control from a Get or Put routine when the routine finds that a 
buffer is ready to be scheduled, or from a Read or Write routine at the ) 
conclusion of its processing. 
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If the device type is magnetic tape, the routine determines the increment 
value and stores it in the ICB. 


If the device is magnetic tape, the record format is variable, and control is 
received from a Put or Write routine, a check is made to see if at least 18 
bytes are to be written. If not, the record is padded with binary zeros up to 
18 bytes or blocksize, whichever is less; however, with the ASCII feature, 
format-D records are padded with the ASCII padding character, X‘5F’, 
instead of zeros. 


If the device type is direct access, the module does the following: 


a. It checks for a cylinder change in the ICBSEEK field in the next ICB by 
comparing it to the cylinder value in the DCBFDAD field in the DCB. 


b. It copies the ICBSEEK field in the next ICB into the DCBFDAD field 
in the DCB. 


c. If a change in cylinder value was found and the new cylinder value is on 
a page boundary (evenly divisible by 8), the DEBXFLG]1 field in the 
DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the 
next one. A GETMAIN for a 12-byte SVC 126 parameter list is issued 
before ICBCHKAR is issued. A related FREEMAIN is issued upon 
return from SVC 126. 


The module attempts to join the channel program for the current buffer to 
the preceding channel program (that is, chain schedule) by: 


Setting the ICB to not-complete. 


Inserting the address of the current channel program into the NOP 
CCW of the preceding channel program. 


Changing the NOP CCW in the preceding channel program to a TIC 
CCW. 


Updating the SAM IOB prefix block to point to the end of the current 
channel program. 


It determines whether the joining was successful by testing the ECB 
(pointed to by the IOB) for a completion posting by the I/O supervisor. 


If the I/O supervisor did not post the event as completed, the joining was 
successful and the routine returns control to the calling routine. 


If the I/O supervisor did post the event as completed, the routine tests the 
ICB for the present channel program to find whether the joining was 
successful or not. 


If the present ICB remains unposted, the present channel program was not 
joined to the preceding one. The routine prepares to cause restart of the 
channel by copying the channel program Start address (and the Seek 
address, if direct-access storage) from the current ICB into the IOB, and 
uses the EXCP macro instruction to cause scheduling of the channel 
program. It then returns control to the calling routine. 


If the present ICB is posted as completed, the present channel program 
was joined successfully. (The routine was interrupted long enough, 
between the joining and the testing, for the channel program to be 
executed and for the channel-end appendage to post the ICB.) The routine 
returns control to the calling routine. 
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End-of-Block Module IGG019CX: Module IGGO19CX, if necessary, 

modifies channel programs for unit-record output devices when ANS control J 
characters are not used. The module then attempts to join the current channel 

program to the preceding one. The Open executor selects and loads this 

module if the DCB specifies: 


Chained channel-program scheduling 

Printer or card punch 

No control character, machine control character 
The module operates as follows: 


e It receives control from a Put routine when the routine finds that a buffer 
is ready for scheduling, or from a Write routine at the conclusion of its 
processing. 


e It adjusts the length entry and the start address entry in the channel 
program for either a control character or a variable-length block length 
field or for both, if both are present. 


e It inserts the control character, if present, as the command byte of the 
Write channel command word (CCW). 


e If the device is a 3800 printer and OPTCD=J is specified, the module 
determines if the Table Reference Character in the current record refers to 
the translate table presently active in the device. If so, the Select Translate 
Table CCW which precedes the Write CCW is altered to a NOP. 
Otherwise, the Select CCW is modified to select the appropriate translate 
table. (If OPTCD=J is not specified, the common printer channel program 


is used.) J 


e It attempts to join the channel program for the current buffer to the 
preceding channel program (that is, chain schedule) by: 


Setting the ICB to not-complete. 


Inserting the address of the current channel program into the NOP 
CCW of the preceding channel program. 


Changing the NOP CCW in the preceding channel program to a TIC 
CCW. 


Updating the SAM IOB prefix block to point to the end of the current 
channel program. 


e It determines whether the joining was successful by testing the ECB 
(pointed to by the IOB) to see if the I/O supervisor has posted the I/O 
event as completed. 


e If the I/O supervisor did not post the event as completed, the joining was 
successful and the routine returns control to the calling routine. 


e If the I/O supervisor did post the event as completed, the routine tests the 
ICB for the present channel program to find whether the joining was 
successful or not. 


e If the present ICB remains unposted, the present channel program was not 
joined to the preceding one. The routine prepares to cause restart of the 
channel by copying the channel program Start address from the current | 
ICB into the IOB, and uses the EXCP macro instruction to cause 2 | 
scheduling of the channel program. It then returns control to the calling nl 
routine. 
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End-of-Block Module IGG019CY: Module IGGO19CY modifies channel 
programs for unit record output devices when ANS control characters are 
used. The module then attempts to join the current channel program to the 
preceding one. The Open executor selects and loads this module if the DCB 
specifies: 


Chained channel-program scheduling 
Printer or card punch 
ANS control character 


The module operates as follows: 


It receives control from a Put routine that finds a buffer is to be scheduled, 
or from a Write routine at the conclusion of its processing. 


It adjusts the length entry and the Start-address entry in the channel 
program for either the control character or a variable-length block length 
field or for both, if both are present. 


It translates the control character and inserts it as the command byte of the 
Control CCW which precedes the Write CCW (or the Select CCW, if the 
device is a 3800 printer with OPTCD=J specified). 


e If the device is a 3800 printer and OPTCD=J is specified, the module 
determines if the Table Reference Character in the current record refers to 
the translate table presently active in the device. If so, the Select Translate 
Table CCW which precedes the Write CCW is altered to a NOP. 
Otherwise, the Select CCW is modified to select the appropriate translate 
table. (If OPTCD=J is not specified, the common printer channel program 
is used.) 


It attempts to join the current channel program to the preceding one (that 
is, chain schedule) by: 


Setting the ICB to not-complete. 


Inserting the address of the current channel program into the NOP 
CCW of the preceding channel program. 


Changing the NOP CCW in the preceding channel program to a TIC 
CCW. 


Updating the SAM IOB prefix block to point to the end of the current 
channel program. 


e It determines whether the joining was successful by testing the ECB 
(pointed to by the IOB) to see if the I/O supervisor has posted the I/O 
event as completed. 


e If the I/O supervisor did not post the event as completed, the joining was 
successful and the routine returns control to the calling routine. 


e If the I/O supervisor did post the event as completed, the routine tests the 
ICB for the present channel program to find whether the joining was 
successful or not. 


e If the present ICB remains unposted, the present channel program was not 
joined to the preceding one. The routine prepares to cause restart of the 
channel by copying the channel program Start address from the current 
ICB into the IOB, and uses the EXCP macro instruction to cause 
scheduling of the channel program. It then returns control to the calling 
routine. 
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e If the present ICB is posted as completed, the present channel program 
was joined successfully. (The routine was interrupted long enough, Jd 
between the joining and the testing, for the channel program to be | 
executed and for the channel-end appendage to post the ICB.) The routine 
returns control to the calling routine. 


End-of-Block Module IGG019TV: Module IGGO19TV computes from the 
track balance (and from further allocated extents on this volume, if 
necessary) a valid storage address for a channel program for an output data 
set on a direct-access device and attempts to join the channel program to the 
preceding one. The Open executor selects and loads this module if the user 
specified the user-totaling option (that is, if bit 6 is 1 in DCBOPTCD) for his 
data set and if the Open parameter list specifies: 


Output 

and the DCB specifies: 
Chained channel-program scheduling 
Direct-access storage 

The module operates as follows: 


e It receives control from a Put routine that finds a buffer is ready to be 
scheduled, or from a Write routine at the conclusion of its processing. 


e It issues a BALR instruction to the user-totaling save routine, IGGO19AX, 
to place the user’s total in the user-totaling save area, which is pointed to 
by the DEB. 


e It calculates the block length using the overhead value for a last block on a J 
track. (This value is found in the resident I/O device table. The address of | 
the table is in the DCBDVTBL field.) It compares the calculated block 
length with the value in the DCBTRBAL field of the DCB. 


e If the block length is equal to or less than the DCBTRBAL field value, the 
module determines that the block fits on the track. 


e If the block length exceeds the DCBTRBAL field value, the module 
calculates the next sequential track address and compares it with the end 
address of the current extent shown in the data extent block (DEB). 


e« If no end-of-extent condition exists, it determines that the block fits on the 
track. 


e If an end-of-extent condition exists, it seeks a new extent in the DEB. 


e If a new extent exists, it updates the DCBFDAD and the DCBTRBAL 
fields and determines that the block fits on the track. 


e If there is no further extent, an EOV condition exists. The module sets the 
DCBCINDI field in the DCB and the CSW field in the IOB to show 
end-of-volume, and returns control to the Put or Write routine without 
issuing an EXCP macro instruction. The EOV condition is eventually 
recognized and processed—in QSAM by the synchronizing routine and in 
BSAM by the Check routine. : 


e If the module determines that the block fits on the track, the module 
calculates the actual block length using the overhead value for a block that 
is not the last on a track. (This value is found in the resident I/O device J 
table.) It adjusts the value in the DCBTRBAL field by this amount and 
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updates the DCBFDAD field and the ID field of the count area of the 
block located immediately after the channel program. 


If the ICBSEEK value indicates record 1 on track O of a cylinder on a page 
boundary (evenly divisible by 8), a test is made for MSS window 
processing. If such processing is indicated in the DEBXFLGI field of the 
DEB extension, the ICBCHKAR macro is issued to invoke SVC 126, 
which will relinquish the processed window and acquire the next one. A 
GETMAIN for a 12-byte SVC 126 parameter list is issued before 
ICBCHKAR is issued. A related FREEMAIN is issued upon return from 
SVC 126. 


If the block fits on the track, the module next attempts to join the channel 
program for the current buffer to the preceding channel program (that is, 
chain schedule) by: 


Setting the ICB to not-complete. 


Inserting the address of either the Write or the Search CCW of this 
channel program into the NOP CCW of the preceding channel program. 
The address of the Write CCW is inserted if the present and the 
preceding channel programs address the same track. The address of the 
Search CCW is inserted if the present and the preceding channel 
programs address different tracks. In this case, the Search CCW 
addresses record zero of the next track. 


Changing the NOP CCW in the preceding channel program to a TIC 
CCW. 


Updating the SAM IOB prefix block to point to the end of the current 
channel program. 


It determines whether the joining was successful by testing the ECB 
(pointed to by the IOB) to see if the I/O supervisor posted the I/O event 
as completed. 


If the I/O supervisor did not post the event as completed, the joining was 
successful and the routine returns control to the calling routine. 


If the I/O supervisor did post the event as completed, the routine tests the 
ICB for the present channel program to find whether the joining was 
successful or not. 


If the present ICB remains unposted, the present channel program was not 
joined to the preceding one. The routine prepares to cause restart of the 
channel by copying the Seek address and the channel program Start 
address from the current ICB into the JOB, and uses the EXCP macro 
instruction to schedule the channel program. It then returns control to the 
calling routine. 


If the present ICB is posted as completed, the present channel program 
was joined successfully. (The routine was interrupted long enough, 
between the joining and the testing, for the channel program to be 
executed and for the channel-end appendage to post the ICB.) The routine 
returns control to the calling routine. 
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End-of-Block Module IGG019TW: Module IGGO19TW attempts to join the 

present channel program to the last one in the chain of scheduled channel J 
programs. The Open executor selects and loads this module if the user 

specifies the user-totaling option (that is, if bit 6 is 1 in DCBOPTCD) for his 

data set and if either of the following conditions exists: 


The Open parameter list specifies Output and the DCB specifies chained 
channel-program scheduling and a direct-access device. 


The Open parameter list specifies Output and the DCB specifies chained 
channel program scheduling and magnetic tape. 


The module operates as follows: 


e It receives control from a Put routine when the routine finds that a buffer 
is ready to be scheduled, or from a Write routine at the conclusion of its 
processing. 


e It issues a BALR instruction to the user-totaling save routine, IGGO19AX, 
to place the user’s total in the user-totaling save area, which is pointed to 
by the DEB. 


e If the device type is magnetic tape, the routine determines the increment 
value and stores it in the ICB. 


e If the device type is direct access, the module does the following: 


a. It checks for a cylinder change in the ICBSEEK field in the next ICB by 
comparing it to the cylinder value in the DCBFDAD field in the DCB. 


b. It copies the ICBSEEK field in the next ICB into the DCBFDAD field 


in the DCB. J 


c. If a change in cylinder value was found and the new cylinder value is on 
a page boundary (evenly divisible by 8), the DEBXFLG1 field in the 
DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the 
next one. A GETMAIN for a 12-byte SVC 126 parameter list is issued 
before ICBCHKAR is issued. A related FREEMAIN is issued upon 
return from SVC 126. 


e The module attempts to join the channel program for the current buffer to 
the preceding channel program (that is, chain schedule) by: 


Setting the ICB to not-complete. 


Inserting the address of the current channel program into the NOP 
CCW of the preceding channel program. 


Changing the NOP CCW in the preceding channel program to a TIC 
CCW. 


Updating the SAM IOB prefix block to point to the end of the current 
channel program. 


e It determines whether the joining was successful by testing the ECB : 
(pointed to by the IOB) to see if the I/O supervisor posted the I/O event 
as completed. 


¢ If the I/O supervisor did not post the event as completed, the joining was 
successful and the routine returns control to the calling routine. J 
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e If the I/O supervisor did post the event as completed, the routine tests the 
ICB for the present channel program to find whether the joining was 


¢ successful or not. 


e If the present ICB remains unposted, the present channel program was not 
joined to the preceding one. The routine prepares to cause restart of the 
channel by copying the channel program Start address (and the Seek 
address, if direct-access storage) from the current ICB into the IOB and 

. uses the EXCP macro instruction to cause scheduling of the channel 
program. It then returns control to the calling routine. 


e If the present ICB is posted as completed, the present channel program 
was joined successfully. (The routine was interrupted long enough, 
between the joining and the testing, for the channel program to be 
executed and for the channel-end appendage to post the ICB.) The routine 
returns control to the calling routine. 


Track-Overflow and User-Totaling Save Routines 


The track-overflow, end-of-block routine processes channel programs for 
output data sets whose blocks may overflow from one track onto another (see 
Figure 11). Such a block is written by a channel program consisting of a 
channel program segment for each track to be occupied by a segment of the 
block. The track-overflow, end-of-block routine computes the address of each 
track written on; to progress from track to track (to continue writing 
successive segments of one block), the channel program uses the Search 
command with the multiple-track (M/T) mode. 


The track-overflow and end-of-block modules, IGG0O19C2 and IGGO19T2, 
are used with output data sets if the access conditions shown in Figure 12 are 
cq specified for a DCB. The Open executor selects one of these modules, loads 
it, and places its address into the DCBEOB or DCBEOBW field. (For an 
input data set with track-overflow, end-of-block module IGGO19CC is used.) 


The user-totaling save module is also shown in Figure 12. This module saves 
an image of the user’s totaling area in the sequential access method totaling 
save area. 


User-Totaling Save Module IGG0O19AX: Module IGGO19AX saves an image 
of the user’s totaling area in the sequential access method totaling save area. 


The Open executor selects and loads this module if the user-totaling option is 
specified in the DCB (that is, if bit 6 is 1 in the DCBOPTCD field). 


The module operates as follows: 


e It receives control from one of the end-of-block routines—IGGO19TC, 
IGGO19TD, IGGO1L9TV, IGGO19TW, or IGGO19T2. 


e It retrieves the address of the sequential access method totaling save area 
from the access method portion of the DEB. 


e The sequential access method totaling save area contains a pointer to the 
user’s totaling area. An image of the user’s total is saved in the next 
available segment of the sequential access method totaling save area. Then 

| the save area control block is updated so that the pointer identifies the 

current entry. 


e It returns control to the end-of-block routine that called it. 
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a - Block Length is Less Than Track Balance 
(No Overflowing Segment) 


b = Block Length is Greater Than Track Balance 
(First Segment Overflows Track) 


Data (Continued) 


c ~ Block Length is Greater Than Track Capacity 
(Several Overflowing Segments) 


Data (Continued) 


Figure 11. Track-Overflow Records 


Access Method Options Selections 

Track Overflow xX », 4 xX x > 4 x 
Output or, xX »,¢ 

INOUT or OUTIN xX x », 4 > 4 
User Totaling Facility », 4 > 4 X 
LABEL=(,,,IN) or LABEL=(,,,0UT) »4 > 4 
on DD Statement 

End-of-Block Modules 

IGGOI9AX AX AX AX 
IGG019C2 C2 C2 C2 
IGGO19T2 T2 Tz T2 
IGG019CT! CT CT 


1. This module is described in the previous section, “Ordinary End-of-Block Routines.” (See Figure 7) 
Figure 12. Module Selector—Track-Overfiow, End-of-Block Modules 
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End-of-Block Module IGG019C2: Module IGG019C2 performs 
device-oriented processing when track overflow is permitted with an output 
data set. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Output, INOUT, or OUTIN 
and the DCB specifies: 
Track overflow 


e If the entire block fits on this track, the module completes a channel 
program (consisting of one channel program segment) for writing the 
block, updates the track balance, and passes control to the I/O supervisor. 
Before the module builds the channel program, tests are made to determine 
if MSS window processing is needed. If record 1 on track 0 of a cylinder on 
a page boundary (evenly divisible by 8) is indicated, the DEBXFLG1 field 
in the DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the next 
one. A GETMAIN for a 12-byte SVC 126 parameter list is issued before 
ICBCHKAR is issued. A related FREEMAIN is issued upon return from 
SVC 126. 


e If at least a 1-byte data field fits on this track, the module completes a 
channel program segment for the segment of the block that fits on the 
track (by entering the Seek address, storage address, and count field for 
the channel program segment) and tests if there is another track in the 
same extent. 


e If the next track is in this extent, it compares the remaining block length 
with the track capacity. 


e If the remainder of the block exceeds track capacity, tests are made to 
determine if MSS window processing is needed. If record 1 on track 0 of a 
cylinder on a page boundary (evenly divisible by 8) is indicated, the 
DEBXFLGI1 field in the DEB extension is checked for an MSS window 
processing request. If such processing is indicated, the ICBCHKAR macro 
is issued to invoke SVC 126, which will relinquish the processed window 
and acquire the next one. AGETMAIN for a 12-byte SVC 126 parameter 
list is issued before ICBCHKAR is issued. A related FREEMAIN is issued 
upon return from SVC 126. The module then proceeds as it does when at 
least one byte fits on the track. 


e If the remainder of the block is less than the track capacity, the module 
completes the final channel program segment for the final segment of the 
block, updates the track balance, and passes control to the I/O supervisor. 


e If the next track is not in this extent, the module passes control to the track 
balance routine using an SVC 25 instruction. That routine erases all tracks 
in the current extent that were found insufficient for the block to be 
written. On return of control from the track balance routine, the module 
tests for another extent. 


e If there is another allocated extent on this volume, the module reconstructs 
the channel program by proceeding as it does when at least one byte fits on 
a track. 


e If there is no other allocated extent on this volume, an end-of-volume 
condition exists. The module sets the DCBCIND 1 field in the DCB and the 
CSW field in the IOB to show end-of-volume, and returns control to the 
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Put or Write routine without issuing an EXCP macro instruction. The EOV 
condition is eventually recognized and processed in QSAM by the 
synchronizing routine, and in BSAM by the Check routine. 


End-of-Block Module IGG019T2: Module IGG0O19T2 performs 
device-oriented processing when track overflow is permitted with an output 
data set. The Open executor selects and loads this module if the user specifies 
the user-totaling option (that is, if bit 6 in DCBOPTCD is 1) for his data set 
and if the Open parameter list specifies: 


Output, INOUT, or OUTIN 
and the DCB specifies: 

Track overflow 
The module operates as follows: 


e It receives control from a Put routine when the routine finds that a buffer 
is to be scheduled, or from a Write routine at the conclusion of its 
processing. 


e It issues a BALR instruction to the user-totaling save routine, IGGOQ19AX, 
to place the user’s total in the user-totaling save area, which is pointed to 
by the DEB. 


e It compares the block length with the space remaining on the track last 
written on. 


e If the entire block fits on this track, the module completes a channel 
program (consisting of one channel program segment) for writing the 
block, updates the track balance, and passes control to the I/O supervisor. 
Before the module builds the channel program, tests are made to determine 
if MSS window processing is needed. If record 1 on track 0 of a cylinder on 
a page boundary (evenly divisible by 8) is indicated, the DEBXFLG1 field 
in the DEB extension is checked for an MSS window processing request. If 
such processing is indicated, the ICBCHKAR macro is issued to invoke 
SVC 126, which will relinquish the processed window and acquire the next 
one. A GETMAIN for a 12-byte SVC 126 parameter list is issued before 
ICBCHKAR is issued. A related FREEMAIN is issued upon return from 
SVC 126. 


e If at least a 1-byte data field fits on this track, the module completes a 
channel program segment for the segment of the block that fits on the 
track (by entering the Seek address, storage address, and count field for 
the channel program segment) and tests for another track in the same 
extent. 


e If the next track is in this extent, the module compares the remaining block 
length with the track capacity. 


e If the remainder of the block exceeds track capacity, tests are made to 
determine if MSS window processing is needed. If record 1 on track 0 of a 
cylinder on a page boundary (evenly divisible by 8) is indicated, the 
DEBXFLGI field in the DEB extension is checked for an MSS window 
processing request. If such processing is indicated, the ICBCHKAR macro 
is issued to invoke SVC 126, which will relinquish the processed window 
and acquire the next one. A GETMAIN for a 12-byte SVC 126 parameter 
list is issued before ICBCHKAR is issued. A related FREEMAIN is issued 
upon return from SVC 126. The module then proceeds as it does when at 
least one byte fits on the track. 


* 
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e If the remainder of the block is less than the track capacity, the module 
completes the final channel program segment for the final segment of the 
block, updates the track balance, and passes control to the I/O supervisor. 


e If the next track is not in this extent, the module passes control to the track 
balance routine using an SVC 25 instruction. That routine erases all tracks 
in the current extent that were found insufficient for the block to be 
written. On return of control from the track balance routine, the module 
tests for another extent. 


e If there is another allocated extent on this volume, the module reconstructs 
the channel program by proceeding as it does when at least one byte fits on 
a track. 


e If there is no other allocated extent on this volume, an end-of-volume 
condition exists. The module sets the DCBCIND1 field in the DCB and the 
CSW field in the [OB to show end-of-volume, and returns control to the 
Put or the Write routine without issuing an EXCP macro instruction. The 
EOV condition is eventually recognized and processed—in QSAM by the 
synchronizing routine, and in BSAM by the Check routine. 


Synchronizing-and-Error-Processing Routines 


A synchronizing-and-error-processing routine (1) synchronizes execution of 
the processing program with execution of the channel programs and (2) 
performs error-processing to permit continued access to the data set after an 
error is encountered during the execution of a channel program. An 
error-processing routine performs only the latter function. 


There are five synchronizing-and-error-processing routines. (See Figure 13.) 
These routines: 


Are unique to QSAM 
Both synchronize and process errors 
Receive control from a Get or a Put routine 
Are pointed to by an address in the DCB 
There are three error-processing routines. (See Figure 14.) These routines: 
Are shared by QSAM and BSAM 
Only process errors 
May be either synchronous or asynchronous 


The track-overflow and 3211 Printer Retry error-processing routines are 
asynchronous. They receive control by being scheduled by an abnormal-end 
appendage. The SYSIN/SYSOUT error-processing routine is synchronous 
and receives control directly from a Get or Put routine (QSAM) or from a 
Check routine BSAM). 


In some cases the QSAM synchronizing routines issue an SVC 55 (EOV) to 
distinguish between permanent error and end-of-volume conditions. For a 
permanent error, the EOV routine returns control to the synchronizing 
routine, which in turn passes control to the user’s SYNAD routine. If the 
SYNAD routine returns, the synchronizing routine again invokes EOV to 
implement error options. For Accept and Skip, control returns once more to 
the synchronizing routine. It now operates as when it is first entered. 
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For an end-of-volume condition (unit exception), EOV takes one of the 
following actions: - 


1. It may return to the synchronizing routine with a new DEB, after restarting 
channel programs. The synchronizing routine then operates as when it is 
first entered. A new volume is being processed, possibly due to a data set 
concatenation with like or unlike attributes. 


2. It may exit to the user’s EODAD routine if the condition should be treated 
as end-of-file. 


3. It will ABEND if unable to take the appropriate action above. 


QSAM synchronizing routines have a standardized register usage allowing 
them to be used interchangeably by GET/PUT routines. This register usage is 
shown as follows: 


Registers Entry Value Exit Value 

0-1 N/A Not restored 

p DCB pointer Unchanged 

3 Previous [OB-8 New IOB-8 (or 
(or ICB) ICB)! 

4 N/A Unchanged 

5 N/A New buffer address 

6 N/A Unchanged 

7 Read or Write Unchanged 
CCW Offset 

8 N/A Caller’s base 

address? 

9-12 User’s registers Unchanged 

13 Save area? Unchanged 

14 Caller’s return Unchanged 
address 

15 Entry point Not restored 
address 


1 This value also stored in DCBIOBA. 
2 Obtained from save area. 
3 Registers 15-8 must be stored beginning at offset 24 (decimal). 

This offset is not the standard one used by the system. 
The routines described in Figure 13 are unique to QSAM. One of these 
routines gains control when a Get or a Put routine finds that it needs a new 
buffer. Figure 13 lists the routines available and the conditions that cause a 
particular routine to be used. The Open executor selects one of the routines, 
loads it, and puts its address into the DCBGERR/PERR field. 


Input, Readback X 
Output X 
Update X X 


Paper-tape X 
character conversion 


Variable-length X 
record format 


Spanned records X 
Locate operating mode X 


* or DATA specified 
on DD statement ! >. 4 


Modules 

IGGO19AF AF 

IGG019AQ AQ AQ 
IGGO19AR AR 

IGGO19AT2 AT 


IGG019BQ BQ 


1. If SYSOUT is specified on the DD statement, none of the synchronizing and error-processing modules are 
required. The necessary routines are contained within the compatibility interface processing module 
IGG019D]J (see Figure 1). 


2. This module includes both the paper-tape-synchronizing-and-error-processing routine and the paper tape 
Get routine. Both routines are described in “Simple Buffering Get Routines” (see Figure 1). 


Figure 13. Module Selector—QSAM Synchronizing-and-Error-Processing Modules 


Synchronizing Module IGG019AF (Update): Module IGGO19AF finds the 
next buffer and ensures that it has been refilled. If a unit status prevented 
refilling the buffer, the module processes the pending channel programs 
according to whether they are empty-and-refill or refill-only channel 
programs. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Update 
and the DCB specifies: 
Get 
The module operates as follows if no error occurred: 


e It receives control when the update Get routine finds that a new buffer is 
needed. It also receives control after the FEOV (force-end-of-volume) 
macro instruction is encountered in a processing program, once from the 
update Get routine (when the FEOV routine schedules the last buffer) and 
once directly from the FEOV routine (when it awaits execution of the 
scheduled buffers.) 


e If the next buffer has been refilled, the module returns control to the 
update Get routine. 


e If the channel program for the next buffer has not yet completed 
processing, the module issues a WAIT macro instruction. 
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The module operates as follows if an end-of-volume condition is encountered: 


e It receives control when the update Get routine finds that a new buffer is 
needed or when the FEOV routine awaits execution of the scheduled 
buffers. 


e If the channel program for the next buffer encountered an end-of-volume 
condition, or if this module has control due to an FEOV macro instruction, 
the module finds the IOBs flagged for output. It then turns off the 

| command-chain flag at the end of the write portion of the channel 
program, and schedules the write channel programs for execution by means 
of an EXCP macro instruction. 


|» When all write channel programs have been executed, or if none are 
pending, the module passes control to the EOV routine by way of an SVC 
55 instruction. If this module has control due to an FEOV macro 
instruction, control returns to the routine that passed control. 


e If a permanent error is encountered during execution of empty channel 
programs for an end-of-volume condition or for an FEOV macro 
instruction, control passes to the SYNAD routine, if one is present. The 
SYNAD routine returns control to this module. 


e The module then processes the error option as follows: 


Accept or Skip option: The pending empty channel programs are 
rescheduled for execution using an EXCP macro instructions. 


Terminate option: Control passes to the EOV routine to request an 
ABEND macro instruction. 


The module operates as follows if a permanent error was encountered: 


e It receives control when the Update Get routine finds a new buffer is 
needed. 


e If the channel program for the next buffer encountered a permanent error 
and a SYNAD routine is present, the module passes control to the SYNAD 
routine. 


e If control returns from the SYNAD routine, or if there is no SYNAD 
routine, the module processes the error option in the following manner: 


Accept Option: If the error occurred in the empty portion of a channel 
program, the module resets the IOB to point to the refill portion of the 
channel program and issues an EXCP macro instruction for it and all 
following IOBs. 


If the error occurred in the refill portion of a channel program, the module 
posts the current IOB as complete without error and issues an EXCP 
macro instruction for all the IOBs except the present one. 


The module ensures refilling of the buffer associated with the first IOB and 
then returns control to the update Get routine. 


Skip Option: If the error occurred in the empty portion of a channel 
program, the module operates as it does for the Accept option. 


If the error occurred in the refill portion of a channel program, the module, 
issues an EXCP macro instruction for all IOBs. 


The module ensures refilling of the buffer associated with the first IOB and 
then returns control to the update Get routine. 


Terminate Option: If the error occurred in the empty portion of a channel 
program, the module passes control to the ABEND routine. 


If the error occurred in the refill portion of a channel program, the module 
finds the end of the empty portion of any pending empty-and-refill channel 
programs, turns off the commmand-chain flag, and issues an EXCP macro 
instruction for these empty channel programs. On execution of all the 
channel programs, the module passes control to the EOV routine to 
request an ABEND. 


Synchronizing Module IGG019AQ (Input): Module IGG019AQ finds the next 
input buffer, determines its status, and passes a full buffer to the Get routine. 
If ASCII is used, the entire input buffer is translated from ASCII to EBCDIC. 


The Open executor selects and loads this module if the Open parameter list 
specifies: 


INPUT or RDBACK 
or, 

INPUT for SYSIN (* or DATA specified on the DD statement) 
and the DCB specifies: 

Get 
The module operates as follows for SYSIN data sets: 


e It receives control when the SAM Subsystem interface, QSAM processing 
module IGGO19DJ, detects an end-of-data condition. 


e It loads the DCB address into register 1 and issues an EOV SVC 55 
instruction. Control is returned to this module only if the SYSIN data set is 
concatenated to another input data set. 


e If control is returned to this module, the EOV close bit is set in the 
DCBOFLGS field. A test is made to determine if the unlike attribute bit 
(DCBOFLGS) is set. If it is, control is returned to the processing program. 
If not, a branch is taken to the Get routine to reschedule the last Get 
request before returning to the processing program. 


If a SYSIN data set was not specified, the module operates as follows: 


e It receives control when a Get routine determines that a new buffer is 
needed. 


e It finds the next IOB and tests the status of the channel program associated 
with that IOB. 


e If the channel program has not yet completed processing, the module issues 
a WAIT macro instruction. 


e If the channel program has been executed normally, the module uses 
XLATE if necessary to convert ASCII records to EBCDIC, then updates 
the DCBIOBA field to point to this IOB, and returns control to the Get 
routine. If format-D records are being read, the record descriptor words 
are first converted from deciaml to binary code. 


e If the channel program has been completed normally, and if the buffer 
contains a DOS checkpoint record, tape files only, the module returns 
control to the Get routine. 


e If an error occurred during the execution of the channel program, the 
module issues an SVC 55 instruction to pass control to the EOV routine. 
EOV returns with a new DEB only if another volume is allocated to the 
data set or if another input data set is concatenated with it. In that case 
EOV has rescheduled the purged channel programs. If EOV returns with a 
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non-zero value in register 15, the DEB has not been changed and the 
SYNAD routine is to be entered. 


Synchronizing Module IGG019AR (Output): Module IGGO19AR finds the 
next output buffer, determines its status, and passes an empty buffer to the 
Put routine. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Output 
and the DCB specifies: 
Put 
The module operates as follows: 


e It receives control when a Put routine determines that a new buffer is 
needed. 


e It finds the next IOB and tests the status of the channel program associated 
with that IOB. 


e If the channel program is not yet executed, the module issues a WAIT 
macro instruction. 


e If the channel program has been executed normally, the module updates 
the DCBIOBA field to point to this IOB and returns control to the Put 
routine. 


e If the output device is a 3203 or 3211 Printer and three or more buffers 
are being used, the synchronizing module waits for two channel programs 
to be completed before updating the DCBIOBA field. 


e If an error occurred during the execution of the channel program, the 
module issues an SVC 55 instruction to pass control to the EOV routine. 
EOV returns with a new DEB only if it is able to allocate another extent or 
volume to the data set. In that case EOV has rescheduled the purged 
channel programs. If EOV returns with a non-zero value in register 15, the 
DEB has not been changed and the SYNAD routine is to be entered. 


Synchronizing Module Module IGGO019BQ (Update): Module IGG019BQ 
finds the next buffer and ensures that it has been refilled. If a unit status 
prevented refilling of the buffer, the module processes the pending channel 
programs according to whether they are empty-and-refill or refill-only 
channel programs. The Open executor selects and loads this module if the 
Open parameter list specifies: 


Update 

Locate operating mode 
and the DCB specifies: 

Get 

Variable-length spanned (blocked or unblocked) record format 
The module operates as follows if no error occurred: 


¢ It receives control when the update Get routine finds that a new buffer is | 
needed. It also receives control after an FEOV macro instruction is . 
encountered in a processing program, once from the update Get routine 
(when the FEOV routine schedules the last buffer) and once directly from 
the FEOV routine (when it awaits execution of the scheduled buffers). 


~*~. 


If the next buffer has been refilled, the module returns control to the 
update Get routine. 


If the channel program for the next buffer has not yet executed, the 
module awaits its execution. 


The module operates as follows if an EOV condition is encountered: 


It receives control when the update Get routine finds that a new buffer is 
needed or when the FEOV routine awaits execution of the scheduled 
buffers. 


If the channel program for the next buffer encountered an EOV condition, 
the module tests whether assembling or updating of a spanned record is in 
process. 


If updating is in process, the module delays the normal EOV processing by 
turning off the error flags in the DCB and then returns control to the 
update Get routine. 


If assembling is in process, the module sets the spanned record flag in the 
IOB and continues to the next step. 


If assembling is in process or if this module has control due to an FEOV 
macro instruction, the module finds the IOBs flagged for output. It then 
resets the command-chain flag at the end of the empty portion of the 
channel program and schedules the empty channel programs for execution 
by means of an EXCP macro instruction. 


If all empty channel programs have been executed, or if none are pending, 
the module issues an SVC 55 instruction. If this module has control due to 
an FEOV macro instruction, control returns to the routine that passed 
control. 


If a permanent error is encountered during execution of empty channel 
programs for an EOV condition or for an FEOV macro instruction, control 
passes to a SYNAD routine if one is present. The SYNAD routine returns 
control to this module. 


The module then processes the error option as follows: 


Accept or Skip: The pending empty channel programs are rescheduled for 
execution using EXCP macro instructions. 


Terminate: Control passes to the ABEND routine. 


On return of control from the EOV routine module tests whether 
assembling of a spanned record is in process. If it is being processed, the 
module turns off the spanned spanned-record flag in the IOB and returns 
control to the update Get routine. 


The module operates as follows if a permanent error is encountered: 


It receives control when the update Get routine finds that a new buffer is 
needed. 


If the channel program for the next buffer encountered a permanent error 
and a SYNAD routine is present, the module passes control to the SYNAD 
routine. 
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e If control returns from the SYNAD routine, or if there is no SYNAD 
routine, the module processes the error option in the following manner: 


Accept: If the error occurred in the empty portion of a channel program, ; 
the module resets the IOB to point to the refill portion of the channel 
program and issues an EXCP macro instruction for it and all following 
IOBs. 


If the error occurred in the refill portion of a channel program, the module 
posts the current IOB as complete without error and issues an EXCP 
macro instruction for all the IOBs except the present one. 


The module ensures refilling of the buffer associated with the first IOB and 
then returns control to the update Get routine. 


Skip: If the error occurred in the empty portion of a channel program, the 
module operates as it does for the Accept option. 


If the error occurred in the refill portion of a channel program, the module 
treats this as a RELSE condition and issues an EXCP macro instruction for 
all IOBs. 


The module ensures refilling of the buffer associated with the first IOB and 
then returns control to the update Get routine. 


Terminate: If the error option occurred in the empty portion of a channel 
program, the module passes control to the ABEND routine. 


If the error occurred in the refill portion of a channel program, the module 

finds the end of the empty portion of any pending empty-and-refill channel 

programs, resets the command-chain flag, and issues an EXCP macro 

instruction for these empty channel programs. On the execution of all the 

channel programs, the module passes control to the ABEND routine. J 


SYSIN/SYSOUT Synchronous-Error-Processing Module IGG019AH: Module 
IGG0194AH is used in both BSAM and QSAM. It processes permanent error 
conditions detected during the processing of requests for a SYSIN/SYSOUT 
data set. This routine is loaded by the SAM-SI Get or Put routine or by a 
Check module when the error is detected, and is entered with a BALR 
instruction. When IGGO19AH returns control to the calling program, the 
module is deleted. 


The module contains an exit routine that is entered from SYNADAF. This 
routine formats the SYNADAF message. The routine is entered by SYNCH 
and its address is found in the SVC exit list. It returns control to SYNADAF. 


The module also contains a SYNAD control routine. Upon entry, it first 
checks to see if the user has provided the address of aSYNAD routine in the 
DCB. If no routine is specified, control is returned to the calling routine 
(QSAM EROPT=ACC or SKP) or issues an ABEND (BSAM or QSAM 
EROPT=ABE). 


If aSYNAD routine is specified, IGGO19AH operates as follows: 
e The entry point to the SYNADAF exit is stored in the SVC exit list. 


e A dummy IOB is formatted. Parameter registers 0 and 1 are loaded with © 
the IOB address (QSAM) or the DECB address (BSAM), the DCB : 
address, and error flags. 


e The user’s registers are saved in a new save area which is obtained with a 
GETMAIN macro instruction. 2 | 
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e The current registers are saved in the user’s save area and the user’s 
registers are loaded and the SYNAD routine is entered with a BALR 
instruction. 


If DCB EROPT is ACC or SKP, the user SYNAD routine returns control to 
IGG019AH, the register save sequence is reversed, the new save area is freed, 
and control is returned to the calling routine. If EROPT is ABE, Problem 
Determination message IEC020 is issued followed by a 001 ABEND. 


See Figure 14 for error-processing module selection. 


Access Method Options Selections 
Input, INOUT, OUTIN X 

Track Overflow X 

3211 Printer Xx 


*, DATA, or ».4 
SYSOUT specified 
on DD statement 


Modules 

IGG019AH AH 
IGG019C1 Cl 

IGG019FS FS 


Figure 14. Module Selector—Error-Processing Modules 


Track-Overflow, Asynchronous-Error-Processing Module IGG019C1: 
IGG019C1, used in both QSAM and BSAM, processes error conditions that 
are encountered in the execution of a channel program for an input data set 
with track overflow. It processes error conditions asynchronously with the 
execution of the channel program, the I/O supervisor, or the processing 
program. It receives control by being scheduled for execution by the 
track-overflow abnormal-end appendage IGG019C3. It passes control to the 
processing program through the supervisor. The module determines the Seek 
address for reading the segments and blocks beyond the segment in error and 
inserts it in the IOBSEEK field. If the error occurred in a segment of the 
block being read into the buffer, the segment following the segment in error is 
read, if the processing program chooses the Accept option in the SYNAD 
routine. If the error occurred in a segment in the block preceding the block to 
be read into the buffer (that is, the error occurred in the block being skipped 
over to find the block to be read into the buffer), the desired block is in the 
buffer when the processing program obtains the buffer. 


The Open executor selects and loads this module and places its address in an 
IRB pointed to in the DEB if the Open parameter list specifies: 


Input, INOUT, or OUTIN 
and the DCB specifies: 

Track overflow 

Get or Read 


The module operates as follows if the error occurred in a CCW other than a 
Read-data CCW: 


e It receives control from the supervisor. 


e It increases the tracx address in the IOB by 1, posts the ECB with the error 
code, and causes control to return to the processing program. 
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The module operates as follows if the error occurred in a Read-data CCW 
without a Skip bit on: 


e It receives control from the supervisor. y 


e If the segment in error is the last or the only segment of the block, the 
module posts the ECB with the error code and causes control to be 
returned to the processing program. 


e If the segment in error is not the last segment and is not on an alternate 
track, the module sets the IOB to address the track following the track in 
error, posts the ECB with the error code, and causes control to return to 
the processing program. 


e If the segment in error is not the last segment and is on an alternate track, 
the module increases the track address in the IOB by 1, posts the ECB 
with the error code, and causes control to be returned to the processing 
program. 


The module operates as follows if the error occurred in a Read-data CCW 
with the Skip bit on: 


e It receives control from the supervisor. 


e If the segment in error is the final or only segment of a block amd is not on 
an alternate track, the module sets the IOB to address the track in error, 
changes the Read-data command to a NOP command, and issues an EXCP 
macro instruction for the changed channel program. 


e If the segment in error is the final or only segment of a block and is on an 
alternate track, the module sets the IOB to address the track following the 
one originally addressed, posts the ECB with the error code, and causes 
control to be returned to the processing program. (In case of an error in a a 
final or only segment on an alternate track, the remaining blocks on thet J 
track are not read.) 


e If the segment in error is not the last one and is not on an alternate track, 
the module sets the IOB to address the track following the one in error, 
and issues an EXCP macro instruction for the readdressed channel 
program. 


e If the segment in error is not the last one and is on an alternate track, the 
module successively increases the track address in the IOB by 1 and issues 
an EXCP macro instruction for the readdressed channel program. 


e When control returns from the I/O supervisor, this module awaits 
execution of the channel program by using a WAIT macro instruction. On 
channel program execution, the module restores the purged IOBs (and the 
Read-Skip command, if it was changed to a NOP command) and causes 
control to be returned to the processing program. 


See Figure 14 for error-processing module selection. 


IBM 3211 Printer Asychronous-Error-Processing Module IGG019FS (Print 
Line Buffer Error—Retry): Module IGGO19FS is device-dependent and is 
scheduled asynchronously by the 3211 abnormal-end appendage 

| (IGGO19FR, IGG019CU, or IGGO19V6). The module retries operations that 
result in print line buffer parity errors or UCS buffer parity errors, whenever 
possible. When an operation cannot be retried, the printer is reset and control 
is returned to the calling program. 
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Appendages 


The module operates as follows: 


e It initializes registers to point to the DCB, ECB, and IOB. It then examines 
sense bytes in the IOB to determine if one of the error conditions for 
which a retry is possible occurred. 


e If a UCS buffer parity error is indicated (ECB posted in error with an 
X‘41’ or X‘44’ and the command retry bit is on in sense byte 1), the UCS 
image ID is obtained from the UCB located in SYS1.IMAGELIB and 
loaded into storage. (Failure to locate the UCS image in the 
SYS1.IMAGELIB causes a skip to channel 0 command to be issued. This 
resets the printer and the module returns control to the calling program.) 
An IOB and channel program to load the UCS image into the UCS buffer 
on the 3211 are constructed and executed. If a permanent I/O error occurs 
during an attempt to load the UCS buffer, a skip to channel 0 command is 
issued to reset the printer. The UCS field in the UCB is also set to 0 and 
control is returned to the calling program. If the UCS buffer is loaded 
successfully, a check is made to determine the access method (BSAM or 
QSAM) being used. 


e When QSAM is being used, a check is made to determine if three or more 
buffers were specified in the BUFNO field of the DCB macro instruction. 
(This is a condition necessary to retry a print line.) After either UCS buffer 
parity errors or print line buffer parity errors, the type of scheduling is 
determined. For normal scheduling, the IOB associated with the failing 
print line is located and the channel program for that IOB is reissued once. 
If the Channel program is not successful, the next IOB is rescheduled if 
necessary and control is returned to the problem program, as though no 
error occurred. If the channel program is not successful, a skip to channel 0 
command is issued to reset the control unit and the module returns control 
to the calling program. For chained channel scheduling, the portion of the 
channel program associated with the failing print line is reissued. If it is 
successful, a check is made to determine if another chain needs to be 
started before the return to the problem program. If the retry is 
unsuccessful, a skip to channel 0 command is issued and the module 
returns control to the calling program. 


e For BSAM, or for QSAM with fewer than three buffers specified, a skip to 
channel 0 command is issued and the module returns control to the calling 
program. 


See Figure 14 for error-processing module selection. 


Appendages are access method routines that receive control from and return 
control to the I/O supervisor. They operate in the supervisor state. The same 
appendages are used in QSAM as in BSAM. 


An appendage receives control from the I/O supervisor and tests and may 
alter the channel status word (IOBCSW). The I/O supervisor uses the 
IOBCSW to post the event control block (ECB). If the SIO appendage 
receives control from the I/O supervisor before the latter starts execution of 
the channel program, it may alter channel commands just before channel 
program execution. The relationship of the I/O supervisor and the 
appendages are shown in Diagram F. 


The I/O supervisor permits an appendage to gain control at certain exit 
points. At that time the I/O supervisor refers to the entry associated with that 
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End-of-Extent Appendages 
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exit in the appendage vector table, whose address is in the data extent block 
(DEB). If an entry contains the address of an appendage, control passes to it; 
otherwise, control remains with the I/O supervisor. 


The I/O supervisor exits where appendages receive control are: 
e End-of-extent 

e SIO 

e Channel end 

e PCI 

e Abnormal end 


The I/O supervisor unconditionally schedules the routine at the address 
associated with the exit in the Appendage Vector Table. If no appendage is 
present, the entry points to an instruction that causes immediate return to the 
I/O supervisor. 


Appendages differ from other sequential access method routines that are 
loaded by the Open executor into processing program virtual storage. They 
differ because they operate asychronously with the processing program. The 
events that cause appendages to gain control depend on the progress of the 
channel program, not on the progress of the processing program. Other 
appendages operate by running enabled under an SRB. 


The Open executor selects and loads all the appendages to be used with a 
DCB. No appendage, one appendage, or several appendages may be used 
with one DCB. The Open executor places the addresses of the required 
appendages into the various fields of the appendage vector table. Figure 15 
lists the appendages and the conditions that cause the different appendages to 
be used. The appendages are grouped according to the condition detected by 
the I/O supervisor before control is passed to the appendage. Note that some 
appendages have entry points for more than one of the conditions checked by 
the I/O supervisor. 


End-of-extent appendages gain control of the central processing unit (CPU) 
if the EXCP supervisor finds an end-of-extent condition. This condition exists 
if the direct-access device storage address associated with a channel program 
is outside of the extent currently pointed to in the data extent block (DEB). 


Five end-of-extent appendages are provided for use with sequential access 
method routines: 


e IGG0O19AW processes an end-of-extent condition for QSAM update mode 
channel programs. 


e IGG019BM processes an end-of-extent condition for BSAM update mode 
channel programs. 


e IGGO019CH processes an end-of-extent condition when neither the update 
mode nor chained channel-program scheduling is specified. 


« I1GG019CZ processes end-of-extent conditions when chained 
channel-program scheduling is used. 


¢ IGG019C4 is loaded in for standard format-F records and verifies whether 
an extent violation is valid. It is also the end-of-extent appendage for the 
search-direct option. 
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ate, 


Access Method Options 


Input, INOUT, OUTIN 

Readback 

Update 

Get 

Read 

Offset Read (BDAM) 

Create BDAM 

Record format is fixed-length 

Record format is fixed-length blocked 
Record format is variable-length 
Record format is variable-length spanned 
Record format is not fixed-length standard 
Record format-U 

Direct-access storage 

Printer 

Paper tape 

Chained Scheduling 

Track-overflow 

3211 Printer 

Magnetic Tape (OPTCD=H) 

Search Direct (OPTCD=Z) 

RPS 

VeR 


Appendages entered from End-of-Extent Exit 
IGGOISAW 

IGGO19BM 

IGGO19CH 

IGG019CZ 

IGGO019C4 


Appendages entered from SIO Exit 
IGGO19CG 

IGGOISCL 

Appendages entered from Channel-End Exit 
IGG019BT 

IGGOI9BV 

IGGOI9CI 

1GG019C) 

IGGO19CS 

IGGO19CU 

IGG019CO 

1GG019C32 

IGGO19EI 

IGGOI9EJ 

IGGOI19FP 

I1GGO19V6! 


Appendage entered from PC] Exit 
[GG019V6 


Appendages entered from Abnormal End Exit 
IGG019CU! 

IGGOI9CI3 

IGGO19CJ3 

1GG019C03 

1GGO019C3 

IGGOI9EI 

IGGOI9EJ 

IGGOI9FR 

IGGO19V6! 


Selections 
X xX X |X xX X 
xX 
X xX »4 
»4 
X 
X 
X 
X 
X 
xX xX 
X | X 
xX xX 
x 
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x 
X X xX 
>| 
xX 
X xX 
X X 
»4 
xX 
AW 
BM 
CH 
CZ 
C4 
CG 
CL 
BT 
BV 
Cl 
CJ 
CS 
CU 
Co 
C3 
El 
EJ 
FP 
: V6 
p | | | ft of. 
CU 
| 
CJ 
Co 
C3 
El 
EJ 
FR 
V6 


1. Module has multiple entry points. Description appears in Program Controlled Interruption Appendages. 
2. Module has multiple entry points. Description appears in Abnormal-End Appendages. 
3. Module has multiple entry points. Description appears in Channel-End Appendages. 


4. If *, DATA, or SYSOUT are specified on the DD statement, no appendages are loaded. 


Figure 15. Module Selector—Appendages 
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Appendage IGG019AW (End-of-Extent—Update—QSAM): 

Appendage IGG019AW readdresses the refill portions of all QSAM update 
channel programs to a new extent. The Open executor selects and loads this 
module for use as the end-of-extent appendage if the Open parameter list 
specifies: “hi 


Update 
and the DCB specifies: 
Get 
The appendage operates as follows: 


e It receives control from the EXCP supervisor under one of the following 
conditions: 


A refill portion of QSAM update channel program attempts to read the 
first block beyond the present extent. 


The remaining channel programs attempt to refill their buffers from the 
new extent. 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If the interruption occurred in a Seek CCW, the appendage copies the Seek 
address from the refill portion of the present channel program into the 
DCB and proceeds to check to determine if there is another extent. 


e If there is no other extent, the appendage sets error indications in the IOB 
and returns control to the EXCP supervisor. The EXCP supervisor then 
issues a PURGE macro instruction for that channel program. The update 
synchronizing routine ensures writing out of the empty portions of pending 
channel programs. 


e If the interruption occurred in a Read-count CCW and there is a new 
extent, the appendage builds a Seek address for the new extent using the 
starting address from the DEB. It then copies this new Seek address into 
the DCB and IOSEEKA and updates the M value in the refill portion of 
each channel program. 


e When using the rotational position sensing (RPS) feature and when the 
Seek address is updated to reflect the beginning of the next extent, the 
Set-sector byte is reset to 0. 


e It resets the IOB to address the next track and its channel program and 
returns control to the I/O supervisor. 


Appendage IGG019BM (End-of-Extent—Update—BSAM): Appendage 
IGG019BM readdresses channel programs to a new extent for a DCB opened 
for Update and using BSAM. The Open executor selects and loads this 
appendage for use as the end-of-extent appendage if the Open parameter list 
specifies: 

Update 
and the DCB specifies: 


Read x 
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The appendage operates as follows: 


e It receives control from the EXCP supervisor when a channel program to 
refill a buffer attempts to read the first block beyond the present extent. 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If there is no other extent for a Refill channel program, the appendage sets 
error indications in the IOB and returns control to the EXCP supervisor. 


e If there is a new extent for a Refill channel program, the appendage adds 1 
to the value of M in the DCBFDAD field and in the Seek address of each 
refill channel program for the DCB. It places the new Seek address into the 
current JOB and returns control to the EXCP supervisor. The supervisor 
restarts the channel program. 


e When the Seek address is updated to reflect the beginning of the next 
extent and the rotational position sensing (RPS) feature has been specified, 
the Set-sector byte is reset to zero. 


Appendage IGG019CH (End-of-Extent—Ordinary): Appendage IGG0O19CH 
finds a new extent when the EXCP supervisor finds an end-of-extent 
condition. The Open executor selects and loads this appendage for use as the 
end-of-extent appendage if the Open parameter list specifies: 


Input, INOUT, or OUTIN 
and the DCB specifies: 
Direct-access storage device 
Record format other than fixed-length standard 
Normal channel-program scheduling 
The appendage operates as follows: 


e It receives control when a channel program attempts to read a block 
beyond the present extent. 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e The appendage examines the DEB for another extent. 


e If there is another extent, the appendage enters the new full device address 
in the DCB, IOSEEKA, the IOBs, and returns control to the EXCP 
supervisor. The EXCP supervisor restarts the channel program. 


e When the SEEK address is updated to reflect the beginning of the next 
extent and RPS was specified, the set-sector byte is set to zero. 


e If there is no other extent, the appendage sets error indications in the IOB 
and the DCB to show an end-of-volume condition and returns control to 
the EXCP supervisor. The EXCP supervisor then issues a PURGE macro 
instruction for that channel program. 


Method of Operation 91 


92 OS/VS2 SAM Logic 


Appendage IGG019CZ (End-of-Extent—Chained Channel-Program 
Scheduling): Appendage IGG019CZ readdresses the chain of channel 
programs to a new extent when the EXCP supervisor finds an end-of-extent 
condition. The Open executor selects and loads this appendage for use as the 
end-of-extent appendage if the DCB specifies: 


Chained channel-program scheduling 
Direct-access storage device 
The appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e It receives control when an end-of-track condition interrupts the chained 
scheduling and the I/O supervisor finds that the next track is not in the 
current extent. 


e If there is another extent, the appendage enters the new Seek address in 
the DCB, IOB,IOSEEKA, updates the Seek addresses of the remaining 
ICBs, resets the error indications in the first ICB, resets the sector value to 
zero when RPS is specified, and returns control to the I/O supervisor to 
reschedule the channel program for execution. 


e If there is no other extent, the appendage sets a volume-full indication in 
the DCB, IOB, and ICB and returns control to the I/O supervisor to skip 
further scheduling for this DCB. 


Appendage IGG019C4 (End-of-Extent for Search Direct): Appendage 
IGG019C4 finds a new extent when the EXCP supervisor finds an 
end-of-extent condition. The Open executor selects and loads this appendage 
for use as the end-of-extent appendage if the Open parameter list specifies: 


Input, INOUT, or OUTIN 
and the DCB specifies: 
Direct-access storage device 
Record format other than fixed-length standard 
Normal channel-program scheduling 
Search direct 
The appendage operates as follows: 


e It receives control when a channel program attempts to read a block 
beyond the present extent. 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If another extent is not available and all of the following conditions exist: 
the Seek is not on cylinder FFnn and 


M/T Read-count command caused the Seek beyond the current extent _ 
and 


unit check is on 


Start I/O (SIO) Appendages 


IGG019C4 does the following: 
clears all error and status flags in the IOB, 
sets CHAN and DEV END in the IOBCSW, 
sets 7F in the IOB completion code, 
clears the DCB flags, and 


sets FF in the HI cylinder byte of the next IOBSEEK field (multiple 
IOBs) or the DCBFDAD field (one IOB). 


It then performs normal channel-end processing (because the channel-end 
appendage is bypassed) and sets register 14 code to “skip” (because the 
required I/O has been completed). 


If any of the following conditions exist: 
M/T Read-count did not cause the Seek or 
cylinder FFnn is found or 
unit check is off 

the appendage does the following: 
sets the volume-full list in the DCBCIND1 field, 
sets the unit-exception bit in the CSW, 


sets the register 14 code to “‘extent error,” which is interpreted as an 
end of file condition, and returns. 


If there is another extent, the appendage enters the new full disk address in 
the DCB, IOSEEKA, and the IOBs. It resets the sector value to zero when 
RPS is specified. 


For seeks on record 0, it changes the second TIC in the search direct 

channel program to an M/T Read Count to make it a search previous 
channel program. It then sets the register 14 code to “try again,” and 
returns. 


Start I/O (SIO) appendages, if present, gain CPU control when the start I/O 
subroutine of the EXCP supervisor reaches the start I/O appendage exit. The 
following appendages set channel program entries: 


IGG019CG. This appendage makes the Seek address accessible to the I/O 
supervisor for QSAM and BSAM update channel programs that refill 
buffers. (This is necessary because the Seek address for such a channel 
program is read by the preceding channel program into a location unknown 
to the I/O supervisor.) 


IGGO019CL. This appendage causes the next line to print at the top of a 
new page if a printer overflow condition was encountered in the execution 
of the last channel program. 


All control blocks and data areas used by the I/O interruption supervisor and 
appendage modules must be mapped into real storage. If they are not and the 
I/O interruption supervisor encounters a page exception, the task that 
requested the I/O is abnormally terminated. The EXCP portion of the I/O 
supervisor determines that certain control blocks and data areas will be 
referred to during later processing. 
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Appendage IGG019CG (SIO—Update): Appendage IGGO19CG resets the 
IOB to the Seek address and channel program for refilling for a refill-only 
update channel program. The Open executor selects and loads this appendage 
for use as the SIO appendage if the Open parameter list specifies: 


Update 
The appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e It tests the IOB to determine whether the buffer is to be emptied and 
refilled or to be refilled only. 


e It performs new extent checking and moves the new extent address into 
IOSEEKA. 


e With the rotational position sensing (RPS) feature, the offset to the special 
FDAD from the Read CCW is not the same for record-ready. A test is 
made for record-ready and the correct offset used. When the special 
FDAD has been partially or completely destroyed, the channel program 
Start address is set to point to a TIC so the IOB will ultimately be marked 
in error. The offset of the TIC is different for record-ready. 


Appendage IGG019CL (SIO—-PRTOV): Appendage IGGO19CL causes a 
skip to the top of a new page with the first channel, program following a 
printer overflow condition. The Open executor selects and loads this 
appendage for use as the SIO appendage if the DCB specifies: 


Printer 
The appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e The appendage tests the IOB to determine whether a PRTOV macro 
instruction was issued with this PUT or WRITE macro instruction. 


e If a PRTOV macro instruction was not issued, the appendage returns 
control to the EXCP supervisor immediately. 


e If the PRTOV macro instruction was issued, the appendage resets the 
PRTOV bit in the IOB and tests the DCBIFLGS field to determine 
whether a printer-overflow condition has occurred. 


e If printer-overflow has not occurred, the appendage returns control to the 
EXCP supervisor. 


e If printer-overflow has occurred, the appendage resets the DCBIFLGS 
field, inserts the ‘‘skip-to-1’’ command byte into the channel program, 
updates the IOB channel program start-address field and returns control to 
the EXCP supervisor. 


Channel-end appendages, if present, gain CPU control when the I/O 
interruption supervisor reaches the channel-end appendage exit. For data sets, 
appendages distinguish between valid and invalid block lengths by 
computation. 


When the rotational position sensing (RPS) function is implemented in the 
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channel programs, the Read-sector follows the Read-data command and 
wipes out the Residual count for the Read. The implementation of RPS 
requires reading in the full 8 bytes of the count field of the record to use the 
DLDL plus the K of the count for checking the number of bytes read. The 
count is read into an 8-byte area following the che7nel program. In the 
channel-end appendages, it is necessary to move the CCHHR into the next 
search argument or DCBFDAD-+3 depending on the number of IOBs. 


The channel-end appendages are: 


e IGGOI19BT. This appendage schedules the writing of successive blocks 
when a record has to be segmented. 


e IGGOI19BV. This appendage distinguishes between valid wrong-length 
blocks and variable-length blocks. 


e IGGO19CI. This appendage distinguishes between wrong-length and 
truncated blocks when fixed-length blocked records are being read using 
normal channel program scheduling. 


e IGG019C]. This appendage distinguishes between wrong-length and 
variable-length blocks when variable-length records are being read using 
normal channel program scheduling. 


e IGGO19CS. This appendage distinguishes between valid and invalid 
wrong-length indications when paper tape is being read. 


e IGG019CO0. This appendage distinguishes between wrong-length and 
undefined-length blocks when format-U records are being read from RPS 
direct-access- devices. 


e IGGO19EI. This appendage distinguishes between fixed, fixed-blocked, 
and undefined user blocks and embedded DOS checkpoint records. In the 
case of fixed-length blocked records it also distinguishes between 
wrong-length and truncated blocks. 


e IGGO19EJ. This appendage distinguishes between wrong-length and 
variable-length blocks and embedded DOS checkpoint records. 


e IGGO19FP. This appendage does length checking for all formats supported 
by the search-direct feature. 


Appendage IGG019BT (Channel End—Create BDAM): Module IGGO19BT 
schedules the writing of successive blocks when a record has to be segmented. 
The Open executor selects and loads this module if the DCB specifies: and 
loads this module if the DCB specifies: 


Write (Load) 
Variable-length spanned record 
The module operates as follows for a channel-end condition: 
e It receives control when the I/O supervisor arrives at the channel-end exit. 


e It determines whether the WRITE was WRITE-SZ. If it was WRITE-SZ, 
the routine returns control to the I/O supervisor. 


e When the WRITE-SF is issued, it determines whether the block was 
spanned record. If not, the routine returns control to the I/O supervisor. 


e When a spanned record is being processed, the routine determines whether 
the entire record has been written. If the record has been written, the 
routine returns control to the I/O supervisor. When the entire record has 
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not been written, the routine schedules the asynchronous exit routine. The 
asynchronous exit routine will schedule an EXCP to write a middle 
segment or the last segment of the record. ) 


Channel-End Appendage IGG019BV (Offset Read): Appendage IGGO19BV 
distinguishes between valid wrong-length blocks and variable-length blocks. It 
also performs an offset read function when necessitated by spanned records. 
The Open executor selects and loads this appendage and the associated Read 
module (IGG019BU), if the Open parameter list specifies: 


Input 
and the DCB specifies: 
BFTEK=R 
Variable-length spanned record format for a BDAM data set with keys 
(Under these conditions, the SLI flag is off in the Read CCW.) 
The appendage operates as follows: 
e It receives control from the I/O supervisor at the channel-end exit. 


e If the appendage finds a unit exception bit on in the CSW, it returns to the 
I/O supervisor immediately. 


e If the unit check bit is on, the Abnormal routine is branched too. The 
abnormal channel-end appendage returns to the I/O supervisor 
immediately if it finds a cylinder-end or file-protect condition. Otherwise, 
the current channel program is changed back to Read-key-and-data, and 
control is returned to the I/O supervisor. 


e If a key was not read (Read-data CCW), the command is changed back to 
Read-key and data. 2 


e If akey was expected (Read-key-and-data CCW) and there was no key to 
read (key length=0 in count just read), then the Read CCW must be 
rescheduled with an offset. 


e The appendage calculates the length of the block and compares it to the 
block length field. 


e If the lengths are equal, it resets error indicators in the ECB. 


e If the lengths are unequal and the current channel program is changed to 
Read-key-and-data, control is returned to the I/O supervisor. The I/O 
supervisor then sets the ECB to show that the channel program executed 
with an error condition. 


« The appendage checks the SDW to see if another segment is to follow. If 


there is, the next channel program is changed to Read-data. 


Appendage IGG019CI (Channel End, Abnormal End—Fixed-Length Blocked 
Record Format): Appendage IGGO19CI distinguishes between valid 
wrong-length blocks and truncated blocks. The Open executor selects and 
loads this appendage if the Open parameter list specifies: 


Input, Readback, INOUT, OUTIN, or UPDAT 
and the DCB specifies: 
Fixed-length blocked records 


The channel-end appendage operates as follows: 


| e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
é | a normal return to EXCP. 


e If the IOBUPERR flag is off (abnormal-end not entered before for this 
I/O request), it transfers control to the common channel-end routine. 


e If the IOBUPERR flag is on (abnormal-end entered before for this I/O 


. request), the channel-end appendage does the following: 
Turns off the IOBUPERR flag. 


Turns back on the command chain for the last CCW of the current 
segment, which is the last CCW executed. 


Changes the IOBSEEK argument to the same seek argument pointed to 
by the seek CCW that follows the current segment. 


Changes the IOBSTART address so that it points to the CCW after the 
seek CCW that follows the current segment. The CCW pointed to is 
either set sector or search ID. 


e The channel program is then restarted from that point. 
The abnormal-end appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If the error is not yet a permanent error, the abnormal-end appendage does 
the following: 


| If the IOBUPERR flag is on (prior abnormal-end entry into this 
é section), it gives control to the ERPs, via EXCP, for retry. 


If the IOBUPERR flag is off, it branches to the scan routine to get the 
address of the last CCW in the current segment. 


If the last CCW in the segment is the last CCW in the channel program 
and IOBSTART pointed to the beginning of the segment on entry, the 
appendage gives control to the ERPs, via EXCP, for retry. 


If the last CCW in the segment is not the last CCW in the channel 
program, the appendage turns off the command chain on the last CCW. 
The IOBSTART and IOBSEEK have been updated to the current 
segment. The appendage turns on the IOBUPERR flag and returns 
control to EXCP for restart. 


e If the error is a permanent error, the abnormal-end appendage does the 
following: 


If the IOBUPERR flag is off, it transfers control to the common 
channel-end routine. 


If the IOBUPERR flag is on, it turns on the command chain of the 
failing segment, turns off the IOBUPERR flag, and transfers control to 
the common channel-end routine. 


The scan routine operates as follows: 


e It establishes the address of the last CCW in the current segment and 
passes it back to the calling routine. 


= | e It assumes that the current segment begins with the CCW pointed to by 
( | IOBSTART. 3 
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e It searches from the beginning of the segment until it finds a seek, NOP, or 
CCW without a command chain (other than TIC). 


e It passes the end-of-segment address to the caller. The address is either the 
first CCW without a command chain or the seek address minus eight, 
whichever comes first. 


The common channel-end routine operates as follows: 


e It performs length checking for fixed-length records. If the record format is 
fixed standard or the track-overflow feature is used with record-ready, the 
SLI bit is left off in the Read-data CCW. If a wrong length record is read, 
the command chaining bit is turned off and the CSW reflects channel end 
and wrong length indication. The channel-end appendage determines 
whether the record is a valid short block. For standard format-F records 
with a valid short block, the module turns on the EOV bit in the DCB and 
ECB. 


e For nonstandard format-F records with the track-overflow feature, a short 
block is treated as a valid record and the sector value for this last record is 
used for the next READ. 


e Length checking for nonstandard format-F records without the 
track-overflow feature is performed in the following manner. 


The module searches the channel program for a Read-count command, picks 
up the address of the count to locate the data length and key length, and adds 
them together. The appendage then compares this value to the block size to 
determine whether a short block was read. (The SLI bit is on so the channel 
program will not be terminated with the Read-data CCW.) If a short block 
has been read, the appendage divides the data length plus key length by the 
LRECL to determine whether the record is a multiple of the LRECL. If it is, 
the appendage continues processing using code common to non-RPS. If the 
DD is not a multiple of the LRECL, the incorrect length bit in the CSW is 
turned on and processing continues with code common to both RPS and 
non-RPS. 


e For record-ready channel programs, if there is only one IOB, the CCHHR 
of the count is moved into the DCBFDAD3. If there is more than one 
IOB, the CCHHR of the count is moved into the IOBSEEK +3 of the next 
IOB or, in the case of update, into the next special FDAD+3. 


Appendage IGG019CJ (Channel End, Abnormal End—Variable-Length Record 
Format): Appendage IGG019C]J distinguishes between valid wrong-length 
blocks and variable-length blocks. The Open executor selects and loads this 
appendage if the Open parameter list specifies: 


Input, INOUT, OUTIN, or UPDAT 
and the DCB specifies: 
Variable-length records 
(Under these conditions, the SLI flag is off in the Read CCW.) 


The module performs a length check for variable-length records. When the 
track-overflow option is used with rotational position sensing (RPS), no 
length checking is performed because the count that would be read in is the 
count of the first segment only. When the record-ready feature is used 
without track-overflow, all 8 bytes of the count of the record are read into 
virtual storage. The DLDL plus the K of the count is compared with the LL 
of the record. If they are equal, the module branches via the return register. If 


they are not equal, it turns on the wrong-length indicator, dummies up the 
residual count, and continues processing with code common to both RPS and 
non-RPS. 


For record-ready, if there is only one IOB, the CCHHR of the count is 
moved into the DCBFDAD +3. If there is more than one IOB, the CCHHR 
of the count is moved into the IOBSEEK +3 of the next IOB or, in the case of 
update, into the next special FDAD+3. 


The channel-end appendage operates as follows: 


e It receives control when the I/O interruption supervisor arrives at the 
channel-end exit. 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If the IOBUPERR flag is off (abnormal-end not entered before for this 
I/O request), it transfers control to the common channel-end routine. 


e If the IOBUPERR flag is on (abnormal-end entered before for this I/O 
request), the channel-end appendage does the following: 


Turns off the IOBUPERR flag. 


Turns back on the command chain for the last CCW of the current 
segment, which is the last CCW executed. 


Changes the IOBSEEK argument to the same seek argument pointed to 
by the seek CCW that follows the current segment. 


Changes the IOBSTART address so that it points to the CCW after the 
seek CCW that follows the current segment. The CCW pointed to is 
either set sector or search ID. 


e The channel program is then restarted from that point. 
The abnormal-end appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If the error is not yet a permanent error, the abnormal-end appendage does 
the following: 


If the IOBUPERR flag is on (prior abnormal-end entry into this 
section), it gives control to the ERPs, via EXCP, for retry. 


If the IOBUPERR flag is off, it branches to the scan routine to get the 
address of the last CCW in the current segment. 


If the last CCW in the segment is the last CCW in the channel program 
and IOBSTART pointed to the beginning of the segment on entry, the 
appendage gives control to the ERPs, via EXCP, for retry. 


If the last CCW in the segment is not the last CCW in the channel 
program, the appendage turns off the command chain on the last CCW. 
The IOBSTART and IOBSEEK have been updated to the current 
segment. The appendage turns on the IOBUPERR flag and returns 
control to EXCP for restart. 
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If the error is a permanent error, the abnormal-end appendage does the 
following: 


If the IOBUPERR flag is off, it transfers control to the common 
channel-end routine. 


If the IOBUPERR flag is on, it turns on the command chain of the 
failing segment, turns off the IOBUPERR flag, and transfers control to 
the common channel-end routine. 


The scan routine operates as follows: 


It establishes the address of the last CCW in the current segment and 
passes it back to the calling routine. 


It assumes that the current segment begins with the CCW pointed to by 
IOBSTART. 


It searches from the beginning of the segment until it finds a seek, NOP, or 
CCW without a command chain (other than TIC). 


It passes the end-of-segment address to the caller. The address is either the 
first CCW without a command chain or the seek address minus eight, 
whichever comes first. 


The common channel-end routine operates as follows: 


If the appendage finds a unit-exception bit on in the channel status word, it 
returns control to the I/O interruption supervisor immediately. 


The appendage calculates the length of the block and compares it to that in 
the block length field. 


If the lengths are equal, the appendage turns off error indications in the 
ECB and DCB and returns control to I/O interruption supervisor. 


If the lengths are not equal and the device is magnetic tape, a check is 
made. to see if the block has been padded up to 18 bytes or blocksize, 
whichever is less. If so, the appendage turns off the error indicators in the 
ECB and DCB and returns control to the I/O supervisor. If the device is 
not magnetic tape or the block is not padded, control is returned to the I/O 
interruption supervisor immediately. The I/O interruption supervisor then 
sets the ECB to show that the channel program executed with an error 
condition. 


Appendage IGG019CS (Channel End—Paper Tape): Appendage IGG019CS 
distinguishes between valid wrong-length blocks and the wrong-length 
indication characteristic when paper tape is being read. The Open executor 
selects and loads this appendage if the DCB specifies: 


Fixed-length record format 


Paper tape 


The appendage operates as follows: 


It receives control when the I/O interruption supervisor arrives at the 
channel-end exit. 


It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


If the channel status word (IOSCSW) residual count is zero, the appendage 
turns off error indications in the IOB and then returns control to the I/O 
supervisor. 
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e If the channel status word (IOSCSW) residual count is not zero, the 
appendage returns control to the I/O supervisor immediately. 


Appendage IGG019C0 (Channel End, Abnormal End—Format-U and RPS 
Direct Access): This appendage updates the residual count field of the IOB 
CSW with the length of a variable-length block when format-U records are 
being read from RPS devices. The Open executor selects and loads this 
appendage if the Open parameter list specifies: 

Input, Output, Update, INOUT, or OUTIN 
and the DCB specifies: 

Undefined-length records 

no track-overflow 
and the device is a direct-access with RPS. 
The channel-end appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If the IOBUPERR flag is off (abnormal-end not entered before for this 
I/O request), it transfers control to the common channel-end routine. 


e If the IOBUPERR flag is on (abnormal-end entered before for this I/O 
request), the channel-end appendage does the following: 


Turns off the IOBUPERR flag. 


Turns back on the command chain for the last CCW of the current 
segment, which is the last CCW executed. 


Changes the IOBSEEK argument to the same seek argument pointed to 
by the seek CCW that follows the current segment. 


Changes the IOBSTART address so that it points to the CCW after the 
seek CCW that follows the current segment. The CCW pointed to is 
either set sector or search ID. 


The channel program is then restarted from that point. 
The abnormal-end appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If the error is not yet a permanent error, the abnormal-end appendage does 
the following: 


If the IOBUPERR flag is on (prior abnormal-end entry into this 
section), it gives control to the ERPs, via EXCP, for retry. 


If the IOBUPERR flag is off, it branches to the scan routine to get the 
address of the last CCW in the current segment. 


If the last CCW in the segment is the last CCW in the channel program 
and IOBSTART pointed to the beginning of the segment on entry, the 
appendage gives control to the ERPs, via EXCP, for retry. 


If the last CCW in the segment is not the last CCW in the channel 
program, the appendage turns off the command chain on the last CCW. 
The IOBSTART and IOBSEEK have been updated to the current 
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segment. The appendage turns on the IOBUPERR flag and returns 
control to EXCP for restart. 


e If the error is a permanent error, the abnormal-end appendage does the Za 
following: 


If the IOBUPERR flag is off, it transfers control to the common 
channel-end routine. 


If the IOBUPERR flag is on, it turns on the command chain of the 
failing segment, turns off the IOBUPERR flag, and transfers control to 
the common channel-end routine. 


The scan routine operates as follows: 


e It establishes the address of the last CCW in the current segment and 
passes it back to the calling routine. 


e It assumes that the current segment begins with the CCW pointed to by 
IOBSTART. 


e It searches from the beginning of the segment until it finds a seek, NOP, or 
CCW without a command chain (other than TIC). 


e It passes the end-of-segment address to the caller. The address is either the 
first CCW without a command chain or the seek address minus eight, 
whichever comes first. 


The common channel-end routine operates as follows: 


e If processing a partitioned data set, it returns immediately to the I/O 
supervisor. 


e It returns to the I/O supervisor if the operation was either write or . 
backspace. J 


e Because of the implementation of RPS function in the channel programs, 
the Read-sector follows the Read-data command and wipes out the 
residual count for the Read. The implementation of RPS requires reading 
the full 8-byte count field of the record to use the DLDL plus the K of the 
count for checking the number of bytes read. The count field is read into a 
8-byte area following the channel program. This appendage moves the 
CCHHR into the next search argument or DCBFDAD+3 depending on 
the number of IOBs. In addition, this routine adds DLDL with K and 
stores the result in the Residual Status Word of the IOB. 


Appendage IGG019EI (Channel End, Abnormal End—Fixed-Length or 
Undefined-Length Record Format): Appendage IGGO19EI distinguishes 
between fixed, fixed-blocked, and undefined user blocks and embedded DOS 
checkpoint records. In the case of fixed-length blocked records it also 
distinguishes between wrong-length and truncated blocks. The Open executor 
selects and loads this appendage if the Open parameter list specifies: 


Input, Readback 
and the DCB specifies: 
OPTCD=H (specified in JCL) 
Magnetic tape 
Fixed, fixed-blocked, or undefined-length blocks 
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The appendage operates as follows: 


e It receives control from the I/O interruption supervisor when the I/O 
interruption supervisor arrives at the channel-end and abnormal-end 
appendage exits. 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e Upon encountering a checkpoint header record, bit 0 in the DEBTFLGS 
field of the DEB is turned on. It is turned off when the checkpoint trailer 
record is encountered. This provides the means to differentiate between 
the user’s data records and the embedded checkpoint records. 


e In the channel-end entry into this appendage the number of bytes read is 
tested. If 20 bytes were not read and the bypass-flag bit in the 
DEBTFLGS field is off, the appendage takes the normal exit to the I/O 
interruption supervisor for fixed-length and undefined-length formats and 
performs the necessary record length check for fixed-block records. If 20 
bytes were read, the record is tested to determine if it is a checkpoint 
header record. If it is not a checkpoint header record, the normal exit to 
the I/O interruption supervisor is taken for fixed-length and 
undefined-length formats, and record length checking for fixed-block 
formats is performed. 


e When acheckpoint header record is encountered, the bypass-flag bit in the 
DEBTFLGS field is turned on, the DCBBLKCT field is decremented by 
the value in the IOBINCAM field, the “‘Flags 1-3” fields of the IOB are 
reinitialized, and the IOBERRCT field is set to zero. For QSAM, the IOB 
completion code is set to X‘50’ and the normal exit is taken to the I/O 
interruption supervisor. The bypassing of the checkpoint records is 
performed in the QSAM routines. For BSAM, the re-EXCP exit is taken to 
the I/O interruption supervisor. 


e The appendage is reentered when the reexecuted channel program ends for 
BSAM or when the rescheduled channel program ends for QSAM and, 
finding the bypass flag on, tests for the checkpoint trailer record. If the 
record read is not the trailer record, the DCBBLKCT field is decreased, 
the IOB-flag fields reinitialized, and the IOBERRCT field is set to zero. 
For BSAM, the re-EXCP exit is taken to the I/O interruption supervisor. 
For QSAM, the IOB completion code is set to X‘50’, and the normal exit is 
taken to the I/O interruption supervisor. This process continues until the 
trailer record is read. When the trailer record is read, the bypass flag is 
turned off, and the above procedure is followed. The next entry to this 
channel-end appendage follows the reading of the record immediately 
following the embedded checkpoint records. 


e The appendage is entered in the event of an abnormal condition arising. If 
this entry is the result of any condition other than a data error, control is 
returned to the I/O interruption supervisor by way of the normal exit. 


_e If it is a data error, a test is then performed to determine if a checkpoint 


header/trailer record was read. This test is comprised of an initial 12-byte 
comparison of the record’s first 12 bytes with the checkpoint identifier 


/// CHXKPT // 


Should this comparison fail, a byte-by-byte comparison is performed. If 10 
or more bytes compare successfully, it is then assumed that a header or 
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trailer record has been encountered and the appendage returns control to 
the I/O interruption supervisor. 


Appendage IGG019EJ (Channel End, Abnormal End—vVariable-Length Record Zo 
Format): Appendage IGGO19EJ distinguishes between variable-length and 
wrong-length blocks and embedded DOS checkpoint records. The Open 

executor selects and loads this appendage if the Open parameter list specifies: 


Input 
and the DCB specifies: 
OPTCD=H (via JCL) 
Magnetic Tape 
Variable-length blocks 
The appendage operates as follows: 


e It tests to determine if the EXCP was issued from an SVC routine. If so, it 
effects a normal return to EXCP. 


¢ It receives control from the I/O interruption supervisor when the I/O 
interruption supervisor arrives at the channel-end and abnormal-end 
appendage exits. 


e Upon encountering a checkpoint header record, bit 0 in the DEBTFLGS 
field of the DEB is turned on. It is turned off when the checkpoint trailer 
record is encountered. This provides the means to differentiate between 
the user’s data records and the embedded checkpoint records. 


e In the channel-end entry into this appendage the first two bytes of the 
record are tested to determine if it is a valid block. (The first two bytes of a J 
variable-length physical record specify the block length and are used in 
performing length-checking.) The first 12 bytes of a checkpoint header or 
trailer record (which are identical and 20 bytes in length) identify it as a 
header/trailer record. These 12 bytes are 


/// CHKPT // 


The first two bytes of the checkpoint header record do not satisfy the 
length check as a variable-length record. If the first two bytes do satisfy 
the length check, the appendage takes the normal exit to the I/O 
interruption supervisor for variable-length records. If the first two bytes do 
not satisfy the length check for a variable-length record, the number of 
bytes read is computed. If 20 bytes were not read and the bypass-flag bit in 
the DEBTFLGS field is off, the appendage returns to the I/O interruption 
supervisor. If 20 bytes are read, the record is tested to determine if it is a 
checkpoint header record. If it is not a checkpoint header record, the 
normal exit to the I/O interruption supervisor is taken for variable-length 
formats. 


e When acheckpoint header record is encountered, the bypass-flag bit in the 
DEBTELGS field is turned on, the DCBBLKCT field is decremented by 
the value in the IOBINCAM field of the IOB, the ‘‘Flags 1-3” fields of the 
IOB reinitialized, and the IOBERRCT field set to zero. For QSAM, the 
IOB completion code is set to X‘50’ and the normal exit is taken to the 
I/O interruption supervisor. The bypassing of the checkpoint records is 
performed in the QSAM routines. For BSAM, the re-EXCP exit is taken to 
the I/O interruption supervisor. J 
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e The appendage is reentered when the reexecuted channel program ends for 


BSAM or when the rescheduled channel program ends for QSAM and, 
finding the bypass flag on, tests for the checkpoint trailer record. If the 
record read is not the trailer record, the DCBBLKCT field is decremented, 
the IOB flag fields re-initialized, and the IOBERRCT field is set to zero. 
For BSAM, the re-EXCP exit is taken to the I/O interruption supervisor. 
For QSAM, the IOB completion code is set to X‘50’, and the normal exit is 
taken to the I/O interruption supervisor. This process continues until the 
trailer record is read. When the trailer record is read, the bypass-flag is 
turned off and the above procedure followed. The next entry to this 
channel-end appendage follows the reading of the record immediately 
following the embedded checkpoint records. 


The appendage is also entered in the event that an abnormal condition 
arises. If this entry is the result of any condition other than a data error, 
control is returned to the I/O interruption supervisor by way of the normal 
exit. 


If it is a data error, a test is then performed to determine if a checkpoint 
header/trailer record was read. This test is comprised of an initial 12-byte 
comparison of the record’s first 12 bytes with the checkpoint identifier 


/// CHKPT // 


Should this comparison fail, a byte by byte comparison is performed. If 10 
or more bytes compare successfully, it is then assumed that a header or 
trailer record has been encountered, and the appendage returns control to 
the I/O interruption supervisor. 


Appendage IGG019FP (Channel End—Search-Direct): Appendage 
IGG019FP receives control at channel-end time or if an incorrect length has 
been given. 


The appendage operates as follows: 


It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


The appendage does length checking for all formats supported by the 
search-direct feature. 


If the second TIC in the channel program is a multitrack Read-count 
CCW, the appendage moves the 2-byte data length of the count field, 
pointed to by the address of the multitrack Read-count CCW, to the right 
half of the second TIC location. 


For format-V records, it compares the data length to the record descriptor 
word that is pointed to by the Read-data command. 


For format-U records, no length checking is provided. 


It finds the multitrack Read-count CCW following the Read-data and 
moves the data length of the count field, pointed to by the Read-count 
CCW, to the right half of the second TIC of the next IOB (or to that of 
the same IOB, if only one IOB exists). 


It moves the CCHHR portion of the count, pointed to by the multitrack 
Read-count CCW following the Read-data CCW, to the next IOBSEEK 
field (for multiple IOBs) or to the DCBFDAD (for one IOB). 


It changes the multitrack Read-count CCW, preceding the Read-data 
CCW to a TIC CCW to the Read-data CCW. 
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e For exchange buffering, the value in the DCBBLKSI field is used instead 
of the data length specified in the Read-data command. 


e It changes the second TIC in the search direct channel program to a M/T 
Read Count to make it a search previous channel program. 


Program Controlled Interruption (PCI) Appendage (Execution of Channel 


Programs Scheduled by Chaining) 
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If chained channel-program scheduling is used in V=R, its address is placed 


into the appendage vector table for all three I/O interruption supervisor exits: 


PCI, channel end, and abnormal end. In V=V, only the channel end and 
abnormal end entries are made. 


A program controlled interruption (PCI), in the sequential access methods, 
signals the normal execution of a channel program that was scheduled by 
chaining. The interruption occurs when control of the channel has passed to 
the next channel program. If the only channel status is PCI, the I/O 
supervisor performs no processing; if other channel conditions are also 
present, the I/O supervisor processes these in the usual way after it regains 
CPU control from the PCI appendage. 


This appendage performs the following three functions: 


e It performs the channel status analysis usually done by the I/O 
interruption supervisor. The interruption is caused by a condition in the 
logic of the channel program rather than a condition in the channel or the 
device. The condition is meaningful only to the processing program (in this 
case, the access method routines, or, more specifically, the appendage) and 
has no meaning to the I/O supervisor. 


e It repeats this process for preceding channel programs whose PCIs were 
lost. PCIs are not stacked. If a channel remains masked from the time of 
one PCI until after another PCI, only one PCI occurs. 


e It performs processing normally necessary for other interruptions (for 
example, channel end). Interruptions other than PCIs may terminate 
execution of chained channel programs. 


Accordingly, a PCI appendage not only does the processing implicit for the 
logical condition that the interruption signals (namely, that the preceding 
channel program executed normally), but also extends this processing back to 
any preceding channel programs whose PCI may have been masked and, 
finally, takes CPU control at other I/O interruption supervisor appendage 
exits if chained channel-program scheduling is used. 


Appendage IGG019CU (PCI, Channel End, Abnormal End—Chained 
Channel-Program Scheduling): Appendage IGG0O19CU disconnects (parts) 
chained channel programs that have executed and posts their completion; in 
addition, it performs normal channel-end and abnormal-end appendage 
processing. (For a description of the joining process of chained 
channel-program scheduling, refer to the chained channel-program scheduling 
end-of-block routines.) The Open executor selects and loads this yd ae 
for use as the channel end and abnormal-end appendage if the DCB 
specifies: . 


Chained channel-program scheduling 


The appendage operates as follows: 


It receives control from the I/O interruption supervisor when the latter 
arrives at the channel end and abnormal-end appendage exits. 


It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


It checks the channel program for a rotational position sensing (RPS) 
program and, if one is found, moves the ICB’s channel program address to 
the main IOB’s TIC, which has been offset by the Set Sector CCW. 


It tests to determine if the CSW and the “First ICB”’ field in the IOB, point 
to the same channel program. 


If they do, the appendage continues as it would for a channel-end 
condition. 


If they do not, the appendage disconnects (parts) the channel program 
(pointed to by the ICB) from the next channel program in the chain as 
follows: 


For input, the appendage tests the IOB for an end-of-volume condition. 
If it exists, the appendage continues as it would for a channel-end 
interruption with a permanent error. 


For output, or for input without an associated end-of-volume condition, 
the appendage resets the command in the last CCW from TIC to NOP 
and the address to the beginning of the next channel program. 


If the device is magnetic tape, it updates the DCBBLKCT field in the 
DCB. 


If a WAIT macro instruction was addressed to this channel program, the 
appendage causes the Post routine to perform its processing and to 
return control to the appendage. 


It posts the ICB with the completion code and with channel end and 
updates the IOB SAM prefix to point to the next ICB. 


It repeats this disconnecting process until the IOB and the CSW point to 
the same channel program. 


The appendage continues as follows if channel-end processing occurred 
without an error: 


It sets the IOB and the ICB to show that the channel program completed 
without an error, and resets the IOB to point to the next channel program 
and ICB. 


If there are more channel programs to be executed, the appendage resets 
the IOB to not-complete and passes control to the EXCP supervisor to 
schedule these channel programs. 


If there are no more channel programs to be executed, the appendage 
returns control to the I/O supervisor. 


The appendage continues as follows if the channel-end interruption occurred 
with a wrong-length indication: 


It determines whether a truncated block has been read. 


If a truncated block has been read in a data set with fixed-length blocked 
standard record format, it sets: 
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The DCB to show an end-of-volume condition 

The current ICB to complete-without-error 

The next ICB to complete-with-error 

The CSW in the nex: ICB to show channel end and unit exception 
It returns control to the I/O interruption supervisor. 


e Ifa truncated block has been read in a data set with fixed-length blocked 
record format, the appendage sets the ICB to complete-without-error and 
resets the IOB to point to the next ICB and its channel program. The 
appendage causes control to pass to the EXCP supervisor to restart the 
channel. 


e If a block with wrong-length data has been read, the appendage continues 
as it would for permanent errors. 


The appendage continues as follows if channel-end processing occurred with 
an error: 


e It isolates the channel program in error by disconnecting it from the next 
one. 


e It sets the IOB to point to the channel program in error. 
e It sets the DCB to show that the channel program is being retried. 


e It returns control to the I/O interruption supervisor. That routine then 
processes the channel program in the error-retry procedure. 


The appendage continues as follows if channel end occurred with a permanent 
error: 


e It receives control after the I/O supervisor error-retry procedure is found 
unsuccessful in correcting the error. 


e Fora 3211 printer, it tests to see whether further retry is necessary. If the 
ECB is posted in error with an X‘41’ or X‘44’ and the command-retry bit 
in sense byte 1 is on, then it schedules the asynchronous-error-processing 
module, IGGO19FS, and exits. 


e It posts the ICB to show that the channel program was completed in error. 
e It disconnects the channel program in error from the following one. 

e It resets the IOB to point to the channel program after the one in error. 

e It returns control to the I/O interruption supervisor. 


Appendage IGG019V6 (PCI, Channel End, Abnormal End—Chained 
Channel-Program Scheduling): This appendage is the same as IGGO19CU, 
described above, except that it is loaded into the V=R region instead of LPA 
and uses the PCIPOST macro to post ICBs since it does not hold the local 
lock. 


Abnormal-end appendages receive control from the I/O interruption 
supervisor when the latter finds a unit check condition in the channel status . 
word (CSW). The appendages for this exit are a track-overflow appendage 
and a chained channel-program execution appendage shared with the 
channel-end and PCI exits. The shared appendage is described under the PCI 
appendage. 


A unit check status in a channel addressing an input data set with track 
overflow may indicate a permanent error in one segment of a block. If there 
are further good segments, or if the segment in error is being skipped over to 
find the next block, the sequential access methods attempt to continue access 
beyond the segment in error. The processing necessary to accomplish this is 
performed by the track-overflow asynchronous-error-processing routine, 
(module IGG019C1, described in “Synchronizing and 
Error-Processing-Routines’’), rather than by the appendage. To permit other 
I/O operations to continue, the appendage suspends further processing of the 
condition by the I/O supervisor, schedules the asynchronous error-processing 
routine and returns control to the I/O supervisor. 


Appendage IGG019C3 (Channel End and Abnormal End—Track Overflow, 
QSAM Update): Appendage IGG019C3 schedules the 
track-overflow-asynchronous-error-processing routine if a permanent error 
occurs in a channel program for an input data set with track overflow. The 
Open executor selects and loads this appendage for use as the abnormal-end 
appendage if the Open parameter list specifies: 


Input, INOUT, OUTIN, or UPDAT 
and the DCB specifies: 
Track overflow 
or if the Open parameter list specifies: 
UPDAT 
and the DCB specifies: 
QSAM 
The channel-end appendage operates as follows: 


e It receives control from the I/O interruption supervisor when the latter 
reaches the channel end or abnormal-end appendage exits. 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e If the IOBUPERR flag is off (abnormal-end not entered before for this 
I/O request), it transfers control to the common channel-end routine. 


e If the IOBUPERR flag is on (abnormal-end entered before for this I/O 
request), the channel-end appendage does the following: 


Turns off the IOBUPERR flag. 


Turns back on the command chain for the last CCW of the current 
segment, which is the last CCW executed. 


Changes the IOBSEEK argument to the same seek argument pointed to 
by the seek CCW that follows the current segment. 


Changes the IOBSTART address so that it points to the CCW after the 
seek CCW that follows the current segment. The CCW pointed to is 
either set sector or search ID. 


The channel program is then restarted from that point. 
The abnormal-end appendage operates as follows: 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 
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e If the error is not yet a permanent error, the abnormal-end appendage does 
the following: 


If the IOBUPERR flag is on (prior abnormal-end entry into this ) 
section), it gives control to the ERPs, via EXCP, for retry. 


If the IOBUPERR flag is off, it branches to the scan routine to get the 
address of the last CCW in the current segment. 


If the last CCW in the segment is the last CCW in the channel program 
and IOBSTART pointed to the beginning of the segment on entry, the 
appendage gives control to the ERPs, via EXCP, for retry. 


If the last CCW in the segment is not the last CCW in the channel 
program, the appendage turns off the command chain on the last CCW. 
The IOBSTART and IOBSEEK have been updated to the current 
segment. The appendage turns on the IOBUPERR flag and returns 
control to EXCP for restart. 


e If the error is a permanent error, the abnormal-end appendage does the 
following: 


If the IOBUPERR flag is off, it transfers control to the common 
channel-end routine. 


If the IOBUPERR flag is on, it turns on the command chain of the 
failing segment, turns off the IOBUPERR flag, and transfers control to 
the common channel-end routine. 


The scan routine operates as follows: 


e It establishes the address of the last CCW in the current segment and 
passes it back to the calling routine. 


e It assumes that the current segment begins with the CCW pointed to by 2) 
IOBSTART. 


e It searches from the beginning of the segment until it finds a seek, NOP, or 
CCW without a command chain (other than TIC). 


e It passes the end-of-segment address to the caller. The address is either the 
first CCW without a command chain or the seek address minus eight, 
whichever comes first. 


The common channel-end routine operates as follows: 


e If the CSW that caused this appendage to gain control addresses a 
Read-Data CCW (without a Skip bit) and shows a unit-exception channel 
status, the appendage returns control to the I/O interruption supervisor 
without further processing. After control returns to the processing 
program, the synchronizing or Check routine processes this channel status 
as an end-of-volume condition. 


e If the CSW that caused this appendage to gain control addresses a 
Read-Data CCW (with a Skip bit on) and shows a unit exception or a unit 
check channel status, the appendage passes control to the exit-effector 
routine together with the entry point address of I/O supervisor that causes- 
the I/O supervisor not to post the ECB-and to retain the request element , 
for the channel program. The exit-effector routine schedules the 
track-overflow, asynchronous-error-processing routine for eventual 
execution and passes control to the given entry point. 
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Appendage IGG019FR (Abnormal End—3211 Printer): Appendage 
IGGO19FR schedules the asynchronous error-processing routine IGG0O19FS 
when a print line buffer (PLB) parity error or a UCS buffer parity error 
occurs. 


The appendage operates as follows: 


e The module receives control before and after the error recovery procedure 
(ERP). 


e It tests to see if the EXCP was issued from an SVC routine. If so, it effects 
a normal return to EXCP. 


e The first time the abnormal-end appendage is entered, it is returned to the 
I/O supervisor to schedule the 3211 ERP. 


e The second time the appendage is entered, a return to the I/O supervisor is 
made when any of the following occurs: 


Command retry bit in sense byte 1 is off. 
Error persists after the print line operation was retried. 


Otherwise, the abnormal-end appendage obtains the address of the 
interruption request block (IRB) from the DEB and the address of the 
interruption queue element (IQE) from the IRB. The IQE address is placed 
in register 1 in complement form. The address of the stage 2 exit effector is 
obtained from the communications vector table (CVT) and a branch is 
taken to that address. The stage 2 exit effector schedules the asynchronous 
routine, which retries the print line. It is then returned to the I/O 
supervisor. 


These control routines, shared by QSAM and BSAM, consist of both modules 
loaded by the Open executor and macro expansions. The selection and 
loading of one of the modules is performed by the Open executor and depend 
on the access conditions; the presence of macro expansions depends solely on 
the use of the corresponding macro instruction in the processing program and 
is independent of the presence or absence of modules. 


If a CNTRL macro instruction is encountered in a processing program using 
QSAM or BSAM, control passes to a control routine. The PRTOV macro 
expansions place the code to be executed inline in the processing program. 
CNTRL routines pass control to the I/O supervisor; the macro expansions 
return control to the processing program. The CNTRL routine for the card 
reader causes execution of a channel program that stacks the card just read 
into the selected stacker. The CNTRL routine for the printer causes execution 
of a channel program with a command to space or to skip. The printer 
overflow macro expansions cause testing for the printer-overflow condition. 


There are three CNTRL routines in QSAM;; they are load modules. Figure 16 
lists the routines available and the conditions that cause a particular routine to 
be used. The Open executor selects one of the modules, loads it, and puts its 
address into the DCBCNTRL field. 


There are two PRTOV routines, which are macro expansions. Whenever the 
assembler encounters either of the two macro instructions shown in Figure 
17, it substitutes the corresponding macro expansion in the processing 
program object module:- 
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Access Method Options Selections 
CNTRL xX xX xX 


Printer x J 


Card Reader, xX 
Single Buffer 


3525 Printer X 
Modules 

IGGO19CA CA 
IGGO019CB CB 

IGGO19FA FA 
Figure 16. Module Selector—Control Modules 


Number of 
Macro Instruction Macro 

Expansions 
PRTOV—User exit 1 
PRTOV—No user exit 1 


Figure 17. Control Routines that Are Expansions of Macro Instructions 


Control Module IGG019CA (CNTRL—Select Stacker—Card Reader): 
Module IGG019CA permits stacker selection on the card reader. The Open 
executor selects and loads this module if the DCB specifies: 


CNTRL 


Card reader | 
One buffer Jd 


The module operates as follows: 


e It receives control when the CNTRL macro instruction is encountered in a 
processing program. 


e For QSAM, the module schedules a channel program that stacks the card 
just read, reads the next card into the buffer, forces an EOB condition to 
be recognized by the Get routine, and returns control to the processing 
program. (Card reader Get module IGGO19AG depends on the use of this 
routine to refill empty buffers.) 


e For BSAM, the module schedules a channel program that stacks the card 
just read and then returns control to the processing program. The 
Read/Write module IGGO19BA causes a channel program to be scheduled 
that reads the next card into the buffer. 


e If the 3505 or 3525 is specified, processing continues for stacker 1 or 2 
(whichever is specified in the CNTRL macro instruction of the user’s 
program). 


e A test is made to determine if either OMR or RCE is being used. 


If either OMR or RCE is specified, the OMR/RCE bit is turned on in the, 
operation codes of the CCWs. 


Control Module IGG019CB (CNT RL—Space, Skip—Printer): Module 
IGG019CB causes printer spacing and skipping by use of macro instructions; 
the spacing or skipping to be performed are specified as operands of the 
macro instruction. The Open executor selects and loads this module if the 
DCB specifies: 


CNTRL 
Printer 


The module constructs a channel program to control the device, issues an 
EXCP macro instruction and then returns control to the processing program. 


Control Module IGGO19FA: This module performs line control functions if: 
The 3525 is specified. 
A print file is specified. 
CNTRL is specified. 

The module operates as follows: 


e The line counter total (DCBLNP) in the DCB is increased, according to 
the specifications in the CNTRL instruction. 


e I/O macro sequencing is performed when using this module and a 3525 
associated data set. If an error is detected, an ABEND (003) is issued with 
a return code of 03. 


e If a skip to a channel on the next card is issued by the user, this module 
issues an EXCP to feed the next card, issues a WAIT, and returns control 
to the user’s program by way of register 14. 


Printer-Overflow Macro Expansions: The PRTOV macro expansions permit 
processing program response to printer-overflow conditions. 


The following macro expansions are created as inline coding during the 
expansion of the macro instruction. 


PRTOV - User Exit: The coding operates as follows: 


e A WAIT macro instruction is issued for the IOB pointed to by the 
DCBIOBA field. 


e The DCBIFLGS field of the DCB is tested for an overflow condition. 


e If an overflow condition exists, a BALR instruction is issued to pass 
control to the user’s routine. 


e If no overflow condition exists, control passes to the next instruction. 


PRTOV - No User Exit: The coding creates a test mask in the DCB field 
located at DCBDEVT+1 and returns control to the processing program. 


Note: The printer end-of-block routine temporarily stores the mask in the 
NOP channel command word (CCW) preceding the Write CCW, turns on a 
bit in the first byte of the IOB and resets the mask. The PRTOV appendage 
tests the IOB bit to determine whether to respond to or ignore an overflow 
condition and resets the bit. 


Method of Operation 113 


Basic Sequential Access Method Routines 


Read and Write Routines 


114 OS/VS2 SAM Logic 


Basic sequential access method (BSAM) routines cause storage and retrieval 
of blocks of data. BSAM routines furnish device control, but do not provide 
blocking. There are seven types of BSAM routines: 


e Read routines 

e White routines 

e End-of-block routines 
e Check routines 

e Appendage routines 
e Control routines 

e SVC Routines 


Diagram G, BsSAM/BPAM Flow of Control, shows the relationship of the 
BSAM routines to other portions of the operating system and to the 
processing program. 


Control routines (not shown in Diagram G) permit the processing program to 
control the positioning of auxiliary storage devices. They receive control when 
the CNTRL (printer, tape, card reader), PRTOV, NOTE, POINT or BSP 
macro instructions are encountered in a processing program. The track 
balance routine receives control from a Write routine or the track-overflow, 
end-of-block routine. 


The BSAM control routines are described later in this section of the manual. 
See Figures 20, 21, and 22 for information about control modules. 


A Read or Write routine receives control when the processing program issues 
a READ or a WRITE macro instruction. The Read and Write routines used 
with data sets organized for the sequential or partitioned access methods pass 
control to the end-of-block routines, which in turn pass control to the I/O 
supervisor. The Write routines, used to create data sets organized for later 
access by basic direct access method (BDAM) routines, include the 
end-of-block function within themselves, and so pass control to the I/O 
supervisor directly. A Read or Write routine processes parameters set by the 
processing program in the DECB to permit scheduling of the next channel 
program. 


Figure 18 lists the modules available and the conditions that cause a particular 
module to be used. The Open executor selects one of these routines, loads it, 
and puts its address into the DCBREAD/WRITE field. The figure shows, for 
example, that module IGG019BH is selected and loaded if update and the 
READ macro instruction are specified. 


Read/Write Module IGG019BA: Module IGGO19BA completes the channel 
program to be scheduled next, and relates control blocks used by the I/O 

supervisor to the channel program. The Open executor selects and loads this - 
module if the Open parameter list specifies: 


Input, Output, INOUT, or OUTIN 
and the DCB specifies: 
Read or Write 


Access Method Options 


Input 
Output 


INOUT, OUTIN 


Update 
Read 
Offset Read 
Write 


Write (Load mode) 
(Create-BDAM) 


Paper-tape character- 


conversion 


Fixed-length record 


format 


Undefined-length record 


format 


Variable-length record 


format 


Spanned records 
Track overflow 


*, DATA, or SYSOUT 
specified on DD 


statement 


Read/Write 
Modules 


IGGO19BA 
IGGO19BF 

IGG019BH 
IGG019BR 

IGG019BU 
IGGO19DA 
IGG019DB 
IGG019DD 
IGG019DK 


Selections 
4 xX xX 4 xX 
xX ».4 xX xX X ‘X 
xX xX xX 
».4 
x xX xX xX xX 
xX 
x ».¢ 
xX X xX X 
X xX 
x x > ae. ¢ 
xX xX xX 
X xX x x 
xX x 
xX 
x 
BA BA 
BF BF 
BH 
BR 
BU 
DA 
DB 
DD 
DK 


Figure 18. Module Selector—Read and Write Modules 


The module operates as follows: 


e It receives control when a READ or WRITE macro instruction is 
encountered in a processing program. 


e It enters the address of the IOB into the DECB to permit the Check 
routine to later test execution of the channel program. 


-¢ It completes the channel program by inserting the buffer address from the 
DECB, and the length from either the DECB (for undefined-length 
records), the DCB (for fixed-length records, and for input of 
variable-length records), or the record itself (for output of variable-length 


records). 
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e If a block is to be written on a direct-access storage device, the module 
tests the DCBOFLGS field in the DCB to establish the validity of the 
value in the DCBTRBAL field. 


e If the DCBTRBAL value is valid, or if a block is to be written on a device - 
other than direct-access storage, or if a block is to be read from any device, 
the module passes control to an end-of-block routine. 


e If the DCBTRBAL value is not valid (that is, the preceding operation was 
a Read, Point, or Open for MOD), the module issues an SVC 25 
instruction to pass control to BSAM contre! module IGC0002E to obtain a 
valid track balance. When control returns to this module, it passes control 
to an end-of-block routine. 


Read Module IGG019BF (Paper-Tape Character Conversion): Module 
IGGO19BF completes a channel program to read paper tape, awaits its 
execution, and converts the paper tape characters into EBCDIC characters. 
The Open executor selects and loads this module and one of the 
code-conversion modules, listed in Appendix A, if the DCB specifies: 


Read 
Fixed-length or undefined-length record format 
Paper tape 

The module operates as follows: 


e It receives control when a READ macro instruction is encountered in a 
processing program. 


e It enters the address of the IOB into the DECB to permit the Check 
routine to test execution of the channel program. 


e It completes the channel program by inserting the buffer address from the J 
DECB, and the length value from the DCBBLKSI field (for fixed-length 
record format) or the DECB (for undefined-length record format). 


e It passes control to the end-of-block routine. 


e When control returns from the end-of-block routine, the module issues a 
WAIT macro instruction to await execution of the channel program. 


e It converts each character in the buffer until one of the following 
conditions is met, with the stated effect: 


Conversion has provided the number of characters specified in the 
length value: The module returns control to the processing program. 


All the characters read have been converted, but into a smaller number 
of characters. Some input character codes have no corresponding 
EBCDIC translation in a specific code-conversion module. Therefore, 
after conversion of all characters in the buffer, the number of converted 
characters may be less than the length value: The module completes a 
channel program for the number of additional characters needed to fill 
the buffer, passes control to the end-of-block routine, which issues the 
EXCP macro instruction to schedule the channel program, and issues a - 
WAIT macro instruction for the channel program. When control returns, 
the module resumes converting characters. 


An end-of-record character is encountered (undefined-length record 
format only): The module returns control to the processing program. 


The tape is exhausted: The module returns control to the processing 
program. 

A paper tape reader-detected error character is encountered: If 
necessary because of compression, the module moves the character to 
the left, without conversion, and returns control to the processing 
program. 

e If one of the characters in the buffer is an undefined character, the module 
converts the character to the hexadecimal character FF, sets an indication 
of this condition in the IOB for the paper-tape Check routine, and 
continues conversion until one of the other conditions is met. 


The tables used for code conversion are listed along with the code conversion 
routines in Appendix A. 


Read/Write Module IGG019BH (Update): Module IGG019BH ascertains 
whether a buffer supplied by the processing program is to be written from or 
read into, and causes a corresponding BSAM update channel program to be 
executed. The Open executor selects and loads this module if the Open 
parameter list specifies: 


Update 
and the DCB specifies: 
Read 


With the rotational position sensing (RPS) feature, this module bypasses the 
new CCWs when necessary. 


The module operates as follows: 


e It gains control when the processing program uses a READ or WRITE 
macro instruction. 


e If data is to be read into a buffer, the module flags the IOB for a Read 
operation, sets it to point to the Read channel program, and copies the 
length and buffer address from the DECB or the DCB into the Read 
CCW. 


e If data is to be written from a buffer, the module flags the IOB for a Write 
operation, sets it to point to the Write channel program, copies the 
auxiliary storage address from the DCBFDAD field into the IOBSEEK 
field, and completes the length and buffer address entries in the Write 
CCW. 


e The module passes control to end-of-block module IGGO19CC. On return 
of control from that module, it returns control to the processing program. 


Write Module IGG019BR (Create BDAM/VRE): Module IGG019BR writes 
variable-length spanned blocks and record-zero blocks for a data set that will 
later be processed by BDAM. The Open executor selects and loads this 
module if the DCB specifies: 


Write (Load mode) 
Variable-length spanned record 
BFTEK=R 
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The module consists of three routines: one to write data blocks, one to write 
record-zero blocks, and an asynchronous exit routine. 


To write a data block for BDAM, the routine operates as follows: 


It receives control from the processing program when it encounters a 
WRITE-SF macro instruction and from the EOV routine (to write the 
block not written into the previous volume) after the EOV routine of I/O 
Support has obtained another extent. 


It determines whether this block fits on the current track. If it does, the 
routine determines whether the new track balance is greater than 8 bytes. 
If the new track balance is equal to or less than 8 bytes, the routine adds 
Write-capacity-record CCWs to the Write-count-key-and-data CCWs. It 
then issues an EXCP. 


If the block does not fit on the current track, the routine determines 
whether the block fits on the current volume. If it does, this module 
constructs a channel program to write the first segment from a segment 
area associated with this IOB and to write the capacity record of this track. 
It then issues an EXCP. The asynchronous exit routine writes the 
successive segments. The DCBFDAD field has the address of the highest 
track on which the last segment of this record is written. 


If the block does not fit on the track or within the current volume, this 
routine constructs a channel program to write the capacity record of the 
track. It then issues an EXCP. The asynchronous exit routine writes the 
capacity records of all the tracks on this volume. The EOV routine 
reschedules the Write request on the same volume spanning the extents, if 
the secondary allocation is on the same volume. When the secondary 
allocation is on a different volume, the Write request is written on the new 
volume. 


To write a record-zero block for BDAM, the routine operates as follows: 


It receives control when a WRITE-SZ macro instruction is encountered in 
the processing program or after the EOV routine has obtained another 
extent. 


It updates the record-zero area and the channel program to write the 
record-zero block and issues as EXCP macro instruction. The routine 
returns control to the processing program or to the EOV routine. 


If there are no data blocks on the track, the module modifies the channel 
program to clear the track after writing the record-zero block. 


The asynchronous exit routine operates as follows: 


It receives control from the channel-end appendage through the exit 
effector when a spanned record is to be processed. 


If the record is a spanned record, it constructs a segment from the 
remaining part of the record and issues an EXCP macro instruction to 
write the segment. 


If the record is a spanned volume record, it issues an EXCP macro 
instruction to write capacity records up to the end of the extent. 


Read Module IGGO19BU: This module completes the channel program to 
read a direct data set, and relates the control blocks used by the I/O 
Supervisor to the channel program. The Open executor selects and loads this 
module along with an associated channel-end appendage (IGGO19BV) if the 
Open parameter list specifies: 


Input 
and the DCB specifies: 

BFTEK=R 

Variable-length spanned record format for a BDAM data set with keys 
The module operates as follows: 


e It receives control when a READ macro instruction is encountered in the 
processing program. 


e It enters the address of the IOB into the DECB to permit the Check 
routine to later test execution of the channel program. 


e It completes the channel program by inserting the buffer address and the 
record length. The buffer address is obtained for the DECB. If there is no 
key with this segment (this is not the first segment), the buffer address is 
offset by the key length. This determination is made by checking to see if 
the CCW has been changed by module IGGO19BV to Read-data. The 
record length is obtained from the DEB and modified by the key length if 
appropriate. 


e The module then issues an EXCP macro instruction. 


Write Module IGG019DA (Create-BDAM): Module IGGO19DA writes 
fixed-length data blocks, fixed-length dummy blocks, and record-zero blocks 
for a data set to be processed later by BDAM. The Open executor selects and 
loads this module if the DCB specifies: 


Write (Load mode) 
Fixed-length record format 


With the rotational position sensing (RPS) feature, this module tests the first 
CCW of a channel program created by IGGO199L. It tests for a Set-sector 
command to determine whether it should take any RPS CCWs into account 
when making modifications to the channel program. 


The module operates as follows: 


e It receives control from the processing program when it encounters a 
WRITE macro instruction and also from the EOV routine after the 
end-of-volume routine of O/C/EOV has obtained another extent. 


e It connects the next available IOB to the DCB and the DECB. 


e It determines, in the same manner as end-of-block routine IGGO19CD, 
whether this block fits on the current track and updates the DCBTRBAL 
field. 


e If this is neither the first nor the last block of a track, the module updates 
the full device address (FDAD) in the DCB and the IOB and issues an 
EXCP macro instruction. It then returns control to the processing program 
or the EOV routine from which it received control. 


e If this is the last block of a track (that is, no other block fits on the track 
except the present block), the module updates the full device address 
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(FDAD) in the DCB and the IOB, expands the channel program to write 
the record-zero block for that track as well as the last data block, and 
issues an EXCP macro instruction. The module then returns control to the 
routine from which it received control. 


e If this is the first block of a new track and there is another track in the 
allocated extent, the module finds the next track in the allocated extent, 
updates the full device address (FDAD) in the DCB and the IOB, and 
issues an EXCP macro instruction. It then returns control to the routine 
from which it received control. 


e If this is the first block of a new track and there is no other track in the 
allocated extent, the module sets an EOV condition indication and returns 
control to the processing program. 


Write Module IGG019DB (Create-BDAM): Module IGGO19DB writes 
variable-length and undefined-length blocks and record-zero blocks for a data 
set to be processed later by BDAM. The Open executor select and loads this 
module if the DCB specifies: 


Write (Load mode) 
Variable-length or undefined-length record format 


The module consists of two routines: one to write data blocks and one to 
write record-zero blocks. 


With the rotational position sensing (RPS) feature, the module tests for a 
Set-sector command in the first CCW of a channel program created by 
IGG0199L. If it is an RPS channel program, the module makes the necessary 
modifications to the channel program. 


To write a data block for BDAM, the routine operates as follows: 


e It receives control from the processing program when it encounters a 
WRITE-SF macro instruction and from the EOV routine (to write the 
block not written into the previous volume) after the end-of-volume 
routine of O/C/EOV has obtained another extent. 


e It determines whether this block fits on the current track in the same 
manner as end-of-block routine IGG019CD and updates the DCBTRBAL 
field. 


e If one of the following conditions exists, it returns control without any 
further processing to the processing program or to the EOV routine from 
which it received control: 


A block other than the first block on a track is to be written, but it does 
not fit on the balance of the track. 


The first block is to be written on a track, but the allocated extents are 
exhausted. For this condition, the module sets an EOV condition 
indication before it returns control. 


e If either of the following conditions exists, the module updates the full 
device address (FDAD) in the DCB, the IOB, and the channel program, 
issues an EXCP macro instruction and then returns control to the routine 
from which control was received: 


A block other than the first block on the track is to be written and it fits 
on the balance of the track. 


The first block is to be written on a track and there is another track in 
the allocated extents. 


e It returns control to the processing program or the end-of-volume routine. 
To write a record-zero block for BDAM, the routine operates as follows: 


e It receives control when a WRITE-SZ macro instruction is encountered in 
the processing program, or after the end-of-volume routine has obtained 
another extent. 


e It updates the record-zero area and the channel program to write the 
record-zero block and issues an EXCP macro instruction. The routine 
returns control to the processing program or to the end-of-volume routine. 


e If there are no data blocks on the track, the module modifies the channel 
program to clear the track after writing the record-zero block. 


Write Module IGG019DD (Create-BDAM—Track Overflow): Module 
IGGO19DD creates data sets (with track overflow) of fixed-length data and 
fixed-length dummy blocks that are subsequently to be processed by BDAM. 
The module segments the block, enters the segment lengths and buffer 
segment addresses in the channel program, updates storage addresses for the 
channel program, and updates count fields for the block to be written and for 
records-zero of the tracks. The Open executor selects and loads this module if 
the Open parameter list specifies: 


Output 

and the DCB specifies: 
Write (Load mode) 
Fixed-length record format 
Track overflow 


With the rotational position sensing (RPS) feature, the first CCW of a 
channel program created by IGGO191M is tested by this module for a 
Set-sector command code. If the code is present, alterations to the channel 
program are made accordingly. 


The module operates as follows: 


e It receives control from the processing program when the program issues a 
WRITE macro instruction, or from the end-of-volume routine of I/O 
support after that routine has obtained a new volume to write out any 
pending channel programs. (The end-of-volume routine receives control 
from the Check routine when that routine finds that a channel program did 
not execute because of an end-of-volume condition.) 


e If no IOB is available, it returns control to the processing program. 
e If an IOB is available, it stores its address in the DCB and the DECB. 
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e If the block last written was the last one for this extent, the module erases 
the balance of the extent. 


e If the block last written filled the last track used, the module obtains the 
address of the next track. 


e It sets the IOB and its channel program to write the block onto the next 
available track. 


e If the block does not fill the track, the module completes the count field for 
this record and issues an EXCP macro instruction. 


e If the block fills the track, the module sets the track-full indicator, 
completes record zero for this track, links the channel program that writes 
record zero to the channel program that writes the data record, and issues 
an EXCP macro instruction. 


e If the block overflows the track, the module completes record zero for this 
track and completes a channel program to write record zero, completes the 
count field and channel program for the segment that fits on the track, and 
constructs the identification for record one of the next track. 


e It repeats the preceding until a segment is left that does not overflow a 
track. For the final segment, the module operates as it would for a block 
that fits on the track. 


e On return of control from the I/O supervisor, the module returns control 
to the routine from which it was received. 


READ/WRITE Module IGG019DK: (SYSIN/SYSOUT): Module 
IGG019DK interfaces with a job entry subsystem to obtain records from the 
system input stream or to pass records to the system output stream for a 
BSAM processing program. The open executor selects and loads this module 
if the open parameter list specifies: 


Input, output, INOUT, OUTIN (*, DATA, or SYSOUT coded in the DD 
statement) 


and the DCB specifies: 
Read, Write 
Fixed, undefined, or variable-length records 


The module consists of read and write routines and a check routine (SYSOUT 
only). The SAM module, IGGO19BB, processes the CHECK macro 
instruction for SYSIN (see Figure 19). See Diagram M for an overview of 
SAM-SI processing for BSAM. 


The Read routine operates as follows: 


e It receives control after a READ macro instruction is issued in the 
processing program. 


e The RPL is initialized and the DCB is examined to determine if blocked 
records are specified. If they are, the number of I/O operations specified in 
the I/O counter field (CITIOCNT) is determined by the DCB blocksize and 
record length. If the records are not blocked, the I/O counter field is set to 
1. The format of the CICB is shown in OS/VS2 Data Areas, ° 
SYB8-0606. 


e A JES GET request is issued. The request is issued as many times as is 
necessary to satisfy the count in the I/O counter field. The return code 


J 


Check Routines 


passed by the job entry subsystem in register 15 is checked by the Read 
routine. 


e If an end-of-data condition is detected, the DECSDECB is posted with 
X‘42’ and control is returned to the processing program. The DECSDECB 
is posted with X‘41’ for a permanent error. 


e If the return code indicates a successful completion, control is returned to 
the processing program with the DECSDECB posted with X‘7F’. 


The Write routine operates as follows: 


e It receives control after a WRITE macro instruction is issued in the 
processing program. 


e The RPL is initialized and the number of I/O operations required to 
process the WRITE macro instruction is determined. The number is placed 
in the I/O counter field (CIIOCNT) of the CICB. 


e A JES PUT request is issued. The request is issued as many times as is 
necessary to satisfy the count in the I/O counter field. 


e When processing is completed, control is returned to the processing 
program. The ECB is set to X‘7F’ for a normal completion and a X‘41’ for 
an error. 


A Check routine synchronizes the execution of channel programs with that of 
the processing program. When the processing program issues a READ or 
WRITE macro instruction, control returns to the processing program from the 
Read or Write routine. This occurs when the channel program has been 
scheduled for execution or, if reading paper tape, when the buffer has been 
filled and the data converted. To determine the state of execution of the 
channel program, the processing program issues a CHECK macro instruction; 
control returns to the processing program from the Check routine if the 
channel program was executed successfully, or if it was executed successfully 
after the Check routine caused volume-switching. For permanent errors, 
control passes to the processing program’s SYNAD routine. Reading or 
writing under BSAM, the SYNAD routine may continue processing the data 
set by returning control to the Check routine; writing in the create-BDAM 
mode, processing cannot be resumed. 


If the American National Standard Code for Information Interchange 
(ASCII) is used and input is specified, the check module issues an XLATE 
macro instruction which translates the entire input buffer from ASCII form to 
EBCDIC form. If format-D records are specified, the record descriptor words 
are form converted from decimal to binary. For format-D records when 
BUFOFF #¥ F, the length of the record read is calculated and placed in the 
DCB LRECL field. 


Figure 19 lists the available Check routines and the conditions that cause a 
particular module to be used. The Open executor selects one of the four 
routines, loads it, and places its address into the DCBCHECK field. For 
example, Figure 19 shows that module IGGO19BG is selected and loaded if 
Read and paper-tape character conversion are specified. 


Check Module IGG019BB: Module IGGO19BB synchronizes the execution of 
the channel program to that of the processing program, and responds to any 
exceptional condition remaining after the I/O Supervisor has posted 
execution of the channel program in the IOB. If ASCII coding is used, the 
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Access Method Options Selections 
Input xX ».« 


* or DATA specified X 
on DD statement 


Output xX x x 


SYSOUT specified >, « 
on DD statement 


INOUT, OUTIN X 

Update xX 
Read X 

Write X 


Write (Load) 
(Create-BDAM) X xX 


Paper-tape 
character-conversion X 


Sore 


Variable-length spanned 
record format X 


Check Modules 

IGG019BB BB’ BB BB 
IGG019BG BG 

IGGO019BI BI 

IGGO019BS BS 

IGG019DC DC 


IGG019DK! DK 


1. The Check routine described in this section is part of the BSAM processing module IGG019DK listed in 
Figure 18. 7 J 


Figure 19. Module Selector—Check Modules 


entire input buffer is translated from ASCII to EBCDIC. If a SYSIN data set 
is being processed and an error condition is detected, control is passed to the 
SAM-SI SYNAD routine, IGG019AH. 


The Open executor selects and loads this module if the Open parameter list 
specifies: 
Input, Output, INOUT, or OUTIN 
and the DCB specifies: 
Read or Write 
The module operates as follows: 


e It receives control when a CHECK macro instruction is encountered in a 
processing program. 


e A test is made to determine if a SYSIN data set is being processed. 
e If SYSIN was not specified, processing continues in the normal manner. 
e If SYSIN was specified, the completion code in the ECB is tested. 


If a completion code of X‘7F’ was returned, control is returned to the 

processing program. 

If a completion code of X‘42’ was returned, indicating an end-of-data ) 
condition, the EOV SVC (55) is issued. For concatenated data sets, J: 


control is returned to this routine. If DCBOFLGS specifies “unlike” 
attributes, control is returned to the calling program immediately. 
Otherwise, the read routine indicated in DCBREAD is entered to 
reschedule the request. Control is returned to the user upon completion 
of CHECK processing for this request. 


If any other completion code was returned, module IGG019AH is loaded 
and entered with a BALR instruction. This is the error-processing module 
for SYSIN/SYSOUT. (See Figure 14.) The error-processing module is 
deleted if control is returned to the CHECK module. (User SYNAD 
routine may not return control.) 


It tests the DECB for successful execution of the channel program. 


If the channel program was executed normally, the module returns control 
to the processing program. 


If the channel program is not yet executed, the module issues a WAIT 
macro instruction. 


If the channel program encountered an error condition in its execution, the 
module issues an SVC 55 instruction. Two types of returns from the EOV 
routine are possible: 


If the EOV routine determines the error condition to be an EOV 
condition, the routine passes control to the end-of-volume routine of 
O/C/EOV for volume switching. That routine passes control to the 
EOV/new volume routine which reschedules the purged channel 
programs, this routine then returns control to the Check module. 


If the EOV routine determines the error condition to be a permanent 
error, the routine returns control to the Check module immediately. 
Control is then passed to the processing program’s SYNAD routine. If 
the SYNAD routine returns control to the Check routine, the routine 
issues a second SVC 55 instruction. The routine treats this as an 
ACCEPT error option, implements it, and returns control to the routine, 
which then returns control to the processing program. 


Check Module IGG019BG (Paper-Tape Character-Conversion): Module 
IGG019BG processes error conditions detected by Read module IGG019BF. 


This module is loaded if the DCB specifies the READ macro instruction and 
paper-tape character-conversion. 


The module operates as follows: 


It receives control when a CHECK macro instruction is encountered in a 
processing program. 

If the Read routine filled the buffer with valid characters, the Check 
module returns control to the processing program. 


If the Read routine stopped converting because of a reader-detected error 
character, or if the Read routine encountered an undefined character, the 
Check module passes control to the processing program’s SYNAD routine. 


If control returns from the SYNAD routine, the Check module returns 
control to the processing program. 


If the channel program encountered an EOV condition, the Check module 
issues an SVC 55 instruction. Control passes to the end-of-volume routine 
of O/C/EOV, and finally to the processing program’s EODAD routine. 
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Check Module IGGO19BI (Update): Module IGGO19BI synchronizes the 
execution of a BSAM update channel program to the progress of the 
processing program. A BSAM update channel program either writes data 
from a buffer or reads data into a buffer. 


The module also processes permanent errors and end-of-volume conditions. 
The Open executor selects and loads this module if the Open parameter list 
specifies: 


Update 


and the DCB specifies: 


Read 


The module operates as follows: 


It receives control when the processing program uses the CHECK macro 
instruction. 

It tests the ECB in the DECB for successful execution of the channel 
program associated with that DECB. 


If the channel program has not yet completed processing, the module issues 
a WAIT macro instruction. 


If the channel program has been executed normally, the module returns 
control to the processing program. 


If the channel program encountered an error condition in its execution, the 
module tests to determine if the error is an EOV condition. 


If the error is an EOV condition, the module sets an indicator to show that 
this entry is from the Check module and passes control to the processing 
program’s EODAD routine. 


If the error is not an EOV condition the module issues an SVC 55 
instruction. 

On return of control from the EOV routine, the Check module passes 
control to the processing program’s SYNAD routine. If the SYNAD 
routine returns control to the Check routine, the routine issues a second 
SVC 55 instruction. The routine treats this as an Accept-error option, 
implements it, and returns control to this routine, which then returns 
control to the processing program. 


Check Module IGG019BS (Create BDAM): Module IGGO19BS synchronizes 
the execution of the channel program (to write a block for a BDAM data set) 
to the progress of the processing program, and responds to exceptional 
conditions encountered in the execution of the channel program. The Open 
executor selects and loads this module if the DCB specifies: 


Write (Load mode) 


Variable-length spanned record 


BFTEK=R 


The module operates as follows: 


e It receives control when the processing program uses the CHECK macro 


instruction. 


e If the channel program is not yet executed, the module issues a WAIT 
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macro instruction. 


e If auser specifies WRITE-SFR, the next record address (TTR) is supplied 
in the next address field of the DECB. 


e If the execution of the channel program encounters a permanent error 
condition, the module passes control to the processing program’s SYNAD 
routine. If control is returned from the SYNAD routine, or if there is no 
SYNAD routine, the module issues a DMABCOND macro instruction to 
ABEND. 


e If the Write routine encounters an EOV condition and therefore does not 
request scheduling of the channel program for execution, this module issues 
an SVC 55 instruction. On return of control, this module tests for 
completion of the channel program. 


Check Module IGG019DC (Create—BDAM): Module IGG019DC 
synchronizes the execution of the channel program to write a block for a 
BDAM data set to the progress of the processing program, and responds to 
exceptional conditions encountered in the execution of the channel program. 
The Open executor selects and loads this module if the DCB specifies: 


Write (Load mode) 
The module operates as follows: 


e It receives control when the processing program uses the CHECK macro 
instruction. 


e If the channel program is not yet executed, the module issues a WAIT 


macro instruction. 


e If the channel program executed without error, the module returns control 


to the processing program. 


e If the execution of the channel program encountered a permanent error 
condition, the module passes control to the processing program’s SYNAD 
routine. If control is returned from the SYNAD routine, or if there is no 
SYNAD routine, the module issues a DMABCOND macro instruction to 
ABEND. 


e If the Write routine encountered an EOV condition and therefore did not 
request scheduling of the channel program for execution, this module issues 
an SVC 55 instruction. On return of control this module tests for 
completion of the channel program. 


Check Module IGG019DK (SYSOUT): The Check routine in this module 
receives control after a CHECK macro instruction is issued in the processing 
program for a SYSOUT data set. See Diagram M for an overview of JES 
compatibility interface processing for BSAM. 


The Check routine operates as follows: 
e The return code in the DECSDECRB is tested. 


If a completion code of X‘7F’ is found, control is passed back to the 
processing program. 


- If a completion code of X‘41’ is found, indicating an I/O error, module 
IGGO19AH (error-processing module for SYSIN/SYSOUT, see 
Figure 14) is loaded and entered with a BALR instruction. The 
error-processing module is deleted if control is returned to the Check 
routine. 


e Control is returned to the processing program. 
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BSAM Control Routines 


example, CNTRL, NOTE, POINT, BSP) is used in a processing program or in 
another control routine. BSAM control routines (which include those 
available in QSAM) pass control to the I/O supervisor, another control 
routine, or return control to the processing program directly. BSAM control 
routines cause the physical or logical positioning of I/O devices. 


A control routine receives control when a control macro instruction (for ) 


There are three types of BSAM control routines: 


e Routines that are loaded into processing program virtual storage by the 
Open executor (CNTRL, Note/Point). 


e Routines that are loaded into supervisory transient area by an SVC 
instruction in a processing program macro expansion or in another control 
routine, such as BSP or Track Balance. See the “SAM/PAM SVC 
Routines’”’ section. 


e Routines that are inline macro expansions in the processing program 
(PRTOV). 


Routines that are loaded by the Open executor are mutually exclusive; that is, 
only one of them can be used with one DCB. The PRTOV macro expansions 
result in instructions that set or test bits that cause branching in either the 
processing program or in an appendage. 


Figure 20 and Figure 21 list the various kinds of control routines and the 
conditions that cause them to gain control. Figure 20 shows the access 
condition options that cause the Open executor to load a control routine for 
use with a DCB. 


Figure 21 lists the different macro expansions constructed by the assembler. J 


Control Module IGG019BC (Note/Point—Direct Access): The Open executor 
selects and loads this module if the DCB specifies: 


Point 
Direct-access storage device 
The module consists of two routines: Note and Point. 


Note Routine: The Note routine in module IGGO19BC converts the full 
direct-access device address (FDAD) for the last block read or written to a 
relative address of the form TTR, and presents that value to the processing 
program. 

If the records are standard format without the track-overflow feature, the 
record number is passed to the resident sector routine to compute the sector 


value. If the record format is not standard F or if the track-overflow feature is 
used, the value X‘FF’ is placed in the byte used by the Set-sector CCW. 


The Note routine operates as follows: 


e It receives control when a NOTE macro instruction is encountered in a 
processing program. 
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Access Method Options Selections 
Note/Point xk X 
Update, Track Overflow 

Chained Scheduling X X 

CNTRL xX X X X 
Direct-Access Storage X X 

Magnetic Tape X X X 

Card Reader X 

Printer X 

3525 Printer X 
Control Modules 

IGGO019BC BC 

IGG019BD BD 

IGGO19BE BE 

IGG019BK BK 

IGGO19BL BL 

IGGO019CA! CA 
IGG019CB! CB 


IGGO19FA! FA 
1. These routines are also used in QSAM;; see Figure 16 for description of these routines. 
Figure 20. Module Selector—Control Modules Selected and Loaded by the Open Executor 


~ 
> 


Number of 

Macro 
Macro Instruction Expansions 
PRTOV—User exit 1 
PRTOV—No user exit 1 


1. These routines are also used in QSAM;; see the QSAM section for a description of the routines. 
2. This table duplicates Figure 17; it is repeated here to identify all control routines available in BSAM. 


Figure 21. Control Routines that Are Expansions of Macro Instructions 12 


e It obtains the FDAD value used by the channel program last executed. The 
address is found in either the IOB or the DCB depending on which macro 
instruction the last channel program implemented: 


If the macro instruction is READ and more than one buffer is used, the 
channel program last executed places the FDAD value into the 
IOBSEEK field in the IOB. 


If the macro instruction is READ and a single buffer is used, the 
channel program last executed places the FDAD value into the 
DCBFDAD field of the DCB. 


If the macro instruction is WRITE, the end-of-block routine places the 
FDAD value into the DCBFDAD field. 


e It issues a BALR instruction to pass control to the IECPRLTV routine, 
which converts full addresses into relative addresses. 


e It returns the address and control to the processing program. 
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Point Routine: The Point routine in module IGGO19BC converts a relative 
address (of the form TTRZ) to the full direct-access device address (FDAD) 
used by the next channel program to read or write the block noted. ; 


The Point routine operates as follows: 


e It receives control when a POINT macro instruction is encountered in a 
processing program. 


e It issues a BALR instruction to pass control to the IECPCNVT routine 
which converts the relative address to the full address and returns control 
to the Point routine. If the processing program passed an invalid relative 
address, the routine sets the DCBIFLGS and IOBECBCC fields to show 
that an addressing error occurred before returning control. (The Check 
routine finds the error and processes accordingly.) 


e It establishes the actual value to be used by the next channel program by 
testing the fourth byte of the relative address TTRZ. If the value of Z is 
zero, the full address is decreased by one; if Z is one, the address 
calculated by the IECPCNVT routine is left unchanged. For an 
explanation of how the value of Z is set, refer to the description of the 
POINT macro instruction in OS/VS Data Management Macro 
Instructions. 


e It inserts the value in the DCBFDAD and IOBSEEK fields, sets the 
DCBOFLGS field to show that the contents of the DCBTRBAL field are 
no longer valid, and returns control to the processing program. 


Control Module IGG019BD (Note/Point—Magnetic Tape): Open executor 
selects and loads this module if the DCB specifies: 


Point } 
Magnetic tape 


This module consists of two routines: Note and Point. 


Note Routine: The Note routine in module IGGO19BD presents the contents 
of the DCBBLKCT field of the DCB to the processing program and returns 
control to the processing program. 


Point Routine: The Point routine in module IGG019BD positions the tape at 
the block for which the NOTE macro instruction was issued. 


The Point routine operates as follows: 


e It receives control when a POINT macro instruction is encountered in a 
processing program. 


e It constructs a channel program to read forward or backward one block. 


e It tests for the bypassing embedded DOS checkpoint records option by 
testing bit 3 of the DCBOPTCD field. If the option is found to have been 
specified, the routine issues a GETMAIN to obtain 20 bytes and modifies 
the CCW to read the first 20 bytes of each block into the obtained virtual 
storage while performing recording positioning. The 
suppress-incorrect-length-indication bit is set in the CCW. The actual 
bypassing of any embedded DOS checkpoint records is performed by ‘ 
either channel-end appendage IGGO19EI or IGGO19EJ. Module 
IGGO19BD uses the FREEMAIN macro instruction to obtain virtual 
storage prior to returning to the user. 


e It passes the channel program for execution the number of times required J 
to position the tape at the desired block. 
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e It follows the last Read channel program by a NOP channel program to 
obtain device end information for the last spacing operation. 


e It returns control to the processing program, unless a tapemark, load point, 
or permanent error is encountered in one of the executions of the Read 
channel program. In that case, the routine sets the DCBIFLGS field to 
indicate a permanent error, before returning control to the processing 
program. (Subsequent processing by the Read or Write routine to cause 
scheduling of channel programs for execution results in their not being 
scheduled. On the next entry into the Check routine, it detects and 
processes the error condition.) 


Control Module IGG019BE (CNTRL: Space to Tapemark, Space Tape 
Records): Module IGGO19BE positions magnetic tape at a point within the 
data set specified by the CNTRL macro instruction. The Open executor 
selects and loads this module if the DCB specifies: 


CNTRL 
Magnetic tape 


The module consists essentially of two routines: One for spacing forward or 
backward to the tapemark (the FSM/BSM routine), and one for spacing 
forward or backward a number of tape records (the FSR/BSR routine). 


The FSM/BSM routine operates as follows: 


e It receives control when a CNTRL macro instruction is encountered in a 
processing program. 


e It constructs a channel program to space to the tapemark in the desired 
direction. 


e It issues an EXCP macro instruction for the FSM or BSM channel 
program. Control returns to the routine at channel end for the FFM/BSM 
channel program. 


e It issues an EXCP macro instruction for a NOP channel program to obtain 
device-end information from the FSM/BSM channel program. 


e It issues an EXCP macro instruction for a BSR or FSR channel program to 
position the tape within the data set after the FSM/BSM channel program 
encounters a tapemark. 


e It issues an EXCP macro instruction for a NOP channel program again to 
obtain device-end information from the BSR/FSR channel program. The 
routine then returns control to the processing program. 


The FSR/BSR routine operates as follows: 


e It receives control when a CNTRL macro instruction is encountered in a 
processing program. 


e It constructs a channel program to space one record in the desired 
direction. 


e It tests bit 3 of the DCBOPTCD field for the bypassing embedded DOS 
checkpoint records option. If the option is found to have been specified, 
the routine issues a GETMAIN to obtain 20 bytes and modifies the CCW 
to read the first 20 bytes of each block into the obtained virtual storage 
while performing record positioning. The suppress-incorrect-length 
indication bit is set in the CCW. The actual bypassing of any embedded 
DOS checkpoint records is performed by either channel-end appendage 
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IGGO19EI or IGGO19EJ. Module IGGO19BD uses the FREEMAIN 
macro instruction to obtain virtual storage prior to returning to the user. 


e It reduces the count passed by the control macro instruction and issues an : 
EXCP macro instruction for the FSR or BSR channel program. o) 


e When the count is zero, it issues an EXCP macro instruction for a NOP 
channel program to obtain the device-end information from the last 
FSR/BSR channel program. The routine then returns control to the 
processing program. 


e If aload point is encountered during spacing, the routine returns control to 
the processing program. 


e If a tapemark is encountered during spacing, the routine repositions the 
tape to a point within the data set by reverse spacing one block and returns 
control to the processing program. 


e If a permanent error is encountered during spacing, the routine issues a 
BALR instruction to pass control to the SYNAD routine, if one is present; 
if not, it issues an ABEND macro instruction. 


Control Module IGG019BK (Note/Point—Direct Access—Special): This 
module contains the Note and Point routines for the special access conditions 
of chained scheduling, track overflow, and update. The Open executor selects 
and loads this module if the DCB specifies: 


Point 
Direct-access storage 
Chained scheduling, track overflow, or the Open parameter is update. 


Note Routine: The Note routine in module IGGO19BK finds the full 
direct-access device address (FDAD) for the last block read or written, J 
converts it to a relative address of the form TTR, and presents that value to 

the processing program. 


If the records are standard F without the track-overflow feature, the record 
number is passed to the resident sector routine to compute the sector value. If 
the record format is not standard F or if the track-overflow feature is used, 
the value 255 is placed in the byte used by the Set-sector CCW. 


The Note routine operates as follows: 


e It receives control when a NOTE macro instruction is encountered in a 
processing program. 


e It obtains the FDAD value used by the channel program last executed. The 
location of this address depends on which macro instruction the last 
channel program implemented: 


e If the macro instruction is READ and more than one buffer is used, the 
channel program last executed places the FDAD value into the IOBSEEK 
field in the IOB if track-overflow or update is being used, and into the 
ICBSEEK field if chained scheduling is used. 


e If the macro instruction is READ and only a single buffer is used, the 
channel program last executed places the FDAD value into the DCBFDAD 
field of the DCB. 


e If the macro instruction is WRITE, the end-of-block routine places the 
FDAD value into the DCBFDAD field. J 


e It issues a BALR instruction to pass control to the IECPRLTV routine, 
which converts full addresses into relative addresses. 


e It returns the address and control to the processing program. 


Point Routine: The Point routine in module IGGO19BK establishes the full 
direct-access device address (FDAD) used by the channel program to read or 
write the block noted. 


The Point routine operates as follows: 


e It receives control when a POINT macro instruction is encountered in a 
processing program. 


e It issues a BALR instruction to pass control to the ECPCNVT routine 
which converts the relative address to the full address and returns control 
to the Point routine. If the processing program passed an invalid relative 
address, the executor sets the DCBIFLGS and the IOBECBCC fields to 
show that an addressing error occurred, before returning control. The 
Check routine finds the error and processes accordingly. 


e It establishes the actual value to be used by the next channel program by 
testing the fourth byte of the relative address TTRZ. If the value of Z is 
zero, the full address is decreased by one; if Z is one, the address 
calculated by the convert routine is left unchanged. For an explanation of 
how the value of Z is set, refer to the description of the POINT macro 
instruction in OS/VS Data Management Macro Instructions. 


e It inserts the value into the DCBFDAD and IOBSEEK fields if track 
overflow or update is being used, and also into the ICBSEEK field if 
chained scheduling is used. It sets the DCBOFLGS field to show that the 
contents of the DCBTRBAL field are no longer valid and returns control 
to the processing program. 


Control Module IGG019BL (Note/Point—Magnetic Tape—Chained 
Scheduling): Module IGG019BL is selected and loaded by the Open executor 
if the DCB specifies: 


Point 
Magnetic tape 
Chained scheduling 
The module consists of two routines: Note and Point. 


Note Routine: The Note routine in module IGGO19BL presents the contents 
of the DCBBLKCT field of the DCB to the processing program and returns 
control to the processing program. 


Point Routine: The Point routine in module IGGO19BL positions the tape at 
the block for which NOTE was issued. It operates as follows: 


e It receives control when a POINT macro instruction is encountered in a 
processing program. 


e Achannel program is constructed to read forward or backward one block. 


e The channel program is passed for execution the number of times required 
to position the tape at the desired block. 


e The last spacing channel program is followed by a NOP channel program 
to obtain device-end information for the last spacing operation. 
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e Control is returned to the processing program, unless a tapemark, load 
point, or permanent error is encountered in the execution of one of the 
channel programs. In that case, the routine sets the DCBOFLGS field to 
indicate a permanent error before returning control to the processing . 
program. (Subsequent attempts by the Read or Write routine to cause 
scheduling of channel programs for execution results in their not being 
scheduled. On the next entry into the Check routine, the condition is 
detected and handled.) 


Basic Partitioned Access Method Routines 


BPAM Routines 
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A partitioned data set has a directory and members. The directory is read and 
written using BPAM routines, whereas the members are read and written 
using BSAM routines. (Refer to the BSAM portion of this publication.) A 
processing program using BPAM routines for input from the directory is 
presented with the address of a member in a channel program or in a table; 
for a processing program using BPAM for output to a directory, the routines 
determine the address of the member and record that address in the directory. 


BPAM routines store and retrieve entries in the directory and convert 
direct-access addresses from relative to absolute. Directory entries are entered 
and found by constructing channel programs that search the directory for 
appropriate entry blocks and by locating an equal, or higher, entry within the 
block. Address conversion routines refer to the data extent block (DEB) to 
determine the address value complementary to the given value. 


BPAM routines (see Figure 22) differ from BSAM and QSAM routines in | 
that BPAM routines are not loaded at Open time; the Stow routine is loaded J 
at execution time, all the coding for Find (C option) is a macro expansion, 

and the Find (D option)/BLDL routine and the converting routines are in 

virtual storage. Figure 22 shows how these routines gain control. 


See the ““SVC Routines”’ section for descriptions of BPAM 


routines. 
Instruction 
BPAM Routines Module Number Residence Passing Control 
STOW IGC0002A Link Pack SVC 21 
Area 
STOW IGG0210A Link Pack XCTL from IGC0002A 
Area 
STOW IGG021AB Link Pack XCTL from IGG0210A 
Area 
FIND (C option) (Macro Expansion) User Program FIND (C option) 
Area 
FIND (D option) IGCO18 Nucleus SVC 18 
BLDL IGCOI8 Nucleus SVC 18 
Convert TTR IGCO18 Nucleus BAL IECPCNVT 
Convert MBBCCHRR IGCO018 Nucleus BAL IECPRLTV 
Convert Sector IGCO18 Nucleus BAL IECOSCR1 
Figure 22. BPAM Routines Residence " 


Dummy Data Set 


Dummy Data Set Module IGG019AV: Dummy data set module IGGO19AV 
operates as follows: 


It receives control when a sequential access method macro instruction refers 
to a dummy data set. For a dummy input data set, the module passes control 
to the user’s EODAD routine; for a dummy output data set, the module 

. returns control to the processing program immediately without scheduling any 
I/O operation. 


Sequential Access Method Executors 


Sequential access method executors are routines that receive control from, 
pass control to, or return control to I/O support routines. For a description of 
I/O support routines refer to OS/VS2 Open/Close/EOV Logic. Figure 23 
indicates the other figures that describe the Open and Close executors. 
Executors perform processing unique to an access method when a data 
control block is being opened or closed. 


Open executors 


Close executors 


Receives Control Passes Control 
Executor Number From Via To 
OPEN See Figures See Diagram E XCTL(WTG _ See Diagram E 
24, 25, & 26 Table) 
CLOSE See Figure 27 Close Routine XCTL(WTG — Close Routine 
Table) See Figure 27 


Figure 23. Sequential Access Method Executors—Control Sequence 


The executors reside in the link pack area. It is the Open executors that load 
the access method routines into the processing program area for later use 
during processing program execution. 


The Open executor is entered from the Open routine of I/O support, and 
returns control to that routine. It constructs the data extent block (DEB), the 
buffer pool if requested, input/output blocks (IOB), the channel programs, 
and, if chained channel-program scheduling is used, interruption control 
blocks (ICB). It selects and loads the access method routines to be used with 
the data control block (DCB) being opened. 


The Close executor is entered from the Close routine of I/O support, and 
returns control to it. The executor handles any pending channel programs and 
releases the virtual storage used by the IOBs, ICBs, and channel programs. 


DCB Relocation to Protected Work Area 


Before control is passed to SAM open executors, the DCB is copied to the 
OPEN/CLOSE/EOV work area to ensure the integrity of DCB vectors that 
could be changed by the user during system open time or system close time. 
The DCB copy is updated by SAM executors during open processing and is 
used to refresh the user’s DCB prior to the initiation of any I/O operation. 
(The user’s DCB is used for all I/O initiated during open, except in the 
validation modules, which use the DCB copy.) All I/O is completed and the 
SAM work area, IOBs, and the DEB are updated to reflect the location of the 
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user’s DCB within his address space before control is returned to common 
open. SAM executors refresh the user’s DCB from the work area copy. 


Open Executors 3 


The Open executors are grouped into three stages. Those in the first stage 
receive control from the Open routine of I/O support. These executors pass 
control to one of the stage 2 executors, or the last load of the Open executors. 
The stage 2 executors in turn, pass control to the stage 3 executors. Stage 3 
executors return control to the Open routine. Before relinquishing control, 
each executor specifies the next executor to be called for the data set being 
opened, and also examines the where-to-go (WTG) table to determine 
whether other data sets being opened at the same time need its services. To 
pass control to the next executor that is to process the data set, each executor 
issues an IECRES macro with the XCTL and BRANCH=DIRECT 
parameters. This macro generates a branch to the Open/Close/EOV service 
routine, IFGO19RA, which branches to the next executor. For a description 
of the WTG table, refer to OS/VS2 Open/Close/EOV Logic. 


When an ABEND is to be issued by an Open or Close executor, it issues a 
DMABCOND macro to prepare to pass control to IGG0O196M or 
IGG0206M. These two Problem Determination modules are described in 
OS/VS2 Open/Close/EOV Logic. ADMABCOND macro is issued instead 
of an ABEND macro because the Problem Determination routines write a 
message to the user, issue the GTRACE macro to trace pertinent control 
blocks, and call the optional DCB ABEND exit routine before possibly 
issuing an ABEND macro. 


System modules that build, delete, or modify data extent blocks (DEBs), use 

DEB validity checking, a separate routine that protects the user’s data from 

unauthorized access. The modules must maintain a table of DEB pointers in J 
protected storage by use of the DEBCHK macro instruction, described in 

OS/VS2 System Programming Library: Data Management. The logic of 

the DEBCHK routine is in OS/VS2 Open/Close/EOV Logic. 


The Open executors maintain an audit trail in the Open work area to indicate 
which resources have been acquired. This audit trail is interrogated by the 
Force Close executor when a force close situation arises. 


The message text for all messages issued by the Open executors are contained 
in the message CSECT. Before issuing a message, the executor must extract 
the message text from the message CSECT. 


When a multivolume data set is opened, the direct-access storage devices with 
the rotational position sensing (RPS) feature incorporate this feature into the 
channel program only if all of the devices allocated have the record-ready 
feature. 


Diagram E shows the flow of control among the three stages of Open 
Executors. 
Stage 1 Open Executors 


Stage 1 Open executors construct data extent blocks (DEBs), build buffer 
pools, and issue DEBCHK (TYPE=ADD) macros. If a printer with the 
universal character set (UCS) feature and/or a forms control buffer is 
specified, the executors load the UCS/FCB image specified in the job control 


statement. > 
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IF UCS/FCB images are not specified in the user’s JCL, the executors must 
insure that the current images, as specified by the UCB UCS extension, are 
loaded. 


The Open routines determine which executor is required to begin processing 
of each DCB specified in the Open parameter list. For SAM processing, the 
entry placed in the WTG table is IGGO191A for an actual data set, 
IGG0191C for a dummy data set, and IGGO199F for a SYSIN or SYSOUT 
data set. 


The executor for the first entry in the WTG table gets control from the 
common Open routines. 


As each stage 1 executor completes its processing, the name of the next 
executor (for the DCB being processed) is placed in the WTG table. Then a 
check is made to determine, for each entry in the Open parameter list, if 
another DCB requires the use of the executor now in control. If so, the 
executor is reentered as many times as necessary to process all of the entries 
in the WTG table requiring this executor. If no other DCBs require this 
executor, control is passed to the next executor that is specified in the WIG 
table (starting from the top of the list) for a DCB that has not completed its 
processing. For a particular DCB, all of the stage 1 executors are executed . 
before control is passed to a stage 2 executor. 


Figure 24 lists the access method conditions that cause different stage 1 
executors to be selected, loaded, and to receive control after loading. The 
executors are described in the text that follows. The order of presentation is 
the same as that shown in Figure 24 under Executors. 


In Figure 24, an X in a column represents a condition that must be satisfied 
for the executor marked in that column. A blank in the upper portion of the 
table indicates that either the condition is not required for selection or not 
examined at this time. The table should be used in conjunction with the flow 
of control information in Diagram E, SAM Flow of Control for Open 
Executors. 


Stage 1 Open Executor IGG0191A: Executor IGGO191A receives control 
from the Open routine unless the DD statement is DUMMY. (If the DD 
statement is DUMMY, executor IGGO0191C receives control from the Open 
routine. ) 


The executor operates as follows: 


« It tests the OPEN macro option against the DCBMACRF field. It issues an 
013 ABEND via a DMABCOND macro if any of the conditions listed are 
found. The conditions are: 


For QSAM: 


that buffer length is not smaller than blocksize if the buffer length is 
specified 


that the blocksize is not at least 4 bytes larger than logical-record 
length for variable-length records 


that logical-record length (if specified) is not equal to blocksize for 
fixed-length unblocked data sets 


An invalid format of FBS or FS was specified for a partitioned data 
set. 
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Access Method Options Selections 
Actual Data Set X xX D4 D4 X D4 X X xX xX X D4 X xX X ) 
Dummy Data Set xX 


* DATA, or SYSOUT »4 
specified in DD 
statement 


3505 (OMR/RCE) or 3525 », 4 

3886 (OCR) X 

3800 (Printer Subsystem) X xX 
Direct Access Device X X X XxX 


Printer with UCS Feature 
(1403, 3203, or 3211) x 


Printer with forms control 
buffer (3203 or 3211) xX 


Buffer Pool Required X X X X X 
User Totaling Specified X X X XxX 


Executors 

IGGOI91A 1A 1A 1A] 1A 1A 1A 1A 1A] 1A 1A 1A 1A 1A 1A 
IGG0191B IB 1B 1By] 1B’ 1B 1B 1B 1B] 1B 1B 1B IB 1B 1B 
IGG0191C IC 

IGGO01911 1] 11 1] 1I 11 1] 
IGGO191N IN IN IN IN 

IGG0191T 1T IT 

IGG0191U 1U Jd 
IGG0191V 1V 

IGG0191Y 1Y 1Y]1Y #1Y 

IGG0193] 31 31 31 31 31 31 31 3] 3] 3] 31 31 3] 
IGG0196A 6A 6A 6A] 6A 6A 6A 6A 6A! 6A 6A _ 6A 6A 6A 6A 
IGG0196B 6B 6B 6B] 6B 6B_~ 6B 6B 6B | 6B 6B_ 6B 6B 6B 6B 
IGG0196I 61 6l 61 6I 6I 6l 6l 61 61 6l 61 6l 6l 61 
1GG0196Q 6Q 6Q 
IGGO196R 6R | 
IGGO197E TE 

IGG0197F TF 

IGG0197L 7L 

IGG0197M 7™M 

IGG0197U TU 

IGG0199F oF 

IGG0199G 9G 

IGG0199W 9W 

Figure 24. Open Executor Selector—Stage 1 


For BSAM and QSAM: 


that blocksize is not an even multiple of logical record length for ) 
fixed-length blocked data sets 
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e It performs a test to determine if the blocksize is an integral multiple of the 
logical record length (LRECL) for QSAM with fixed blocked records or 
BSAM data sets. If the blocksize is not an integral multiple of LRECL, 
QSAM data sets are abnormally terminated with an ABEND (013). 


e If search-direct has been requested (OPTCD=Z in the DCB and a 
direct-access device is being used), the executor determines if search-direct 
can be supported (that is, not VS, UT, FBS, etc.) and sets the bit in 
JFCBMASK +6 to X‘08’ if the request can be honored. For a 3890 MICR 
device, it will issue a DMABCOND macro instruction if RECFM, BLKSI, 
LRECL, or BUFL are specified incorrectly. 


e The executor specifies in the WTG table that module IGGO196I is the next 
module required for this DCB. 


e It searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0191B: Executor IGGO191B is loaded after 
executor IGG0196A, IGG0191N or IGGO191Y has completed processing all 
entries in the WTG table. 


The executor operates as follows: 


e If the DCB is not a TSO DCB, this routine fills in the DCBDEVT field 
with the device type and number from the UCB. If unit record equipment 
is indicated, the routine sets the UR bit in the DCBDEVT field. 


« It stores DCBLRECL in the DEB. 
e It sets DCBCNTRL to 0. 


e If the device type is direct-access storage, the address of the device table is 
stored in the DCB. From the device table, the key overhead (or 0 if there 
are no keys) and track balance are stored in the DCB. 


e If the JFCB indicates a partitioned data set, the DSCB and the DSORG 
field of the DCB are checked to be sure they specify partitioned 
organization. If not, a DMABCOND macro instruction is issued. 


¢ If partitioned organization is specified: 


a. For direct-access OUTPUT or OUTIN, the track balance of the last 
Write, from the DSCB, is stored in the DCBTRBAL. 


b. For direct-access input, the member name from the JFCB is stored in 
the DEB. The routine then issues a BLDL macro instruction to find the 
extent. If BLDL returns a non-zero return code, a DMABCOND macro 
instruction is issued. 


The executor issues a BALR to the convert routine at CVTPCNVT to 
convert the TTR to MBBCCHHR and stores it in DCBFDAD. 


e If the data set is not partitioned, DCBFDAD is set to DEBBINUM. If a 
dummy extent is indicated, the DCBFDAD+3 is set to x‘FF’ to indicate an 
illegal FDAD. 


~« If unit record equipment is specified, for input only and Note/Point is 


requested, DCBCNTRL+1 is set with ID of the dummy routine. 
e« If LRECL is not specified, DCBLRECL is initialized for QSAM. 


e The executor specifies in the WTG table that module IGGO196B is the 
next module required for this DCB. 


e It then searches the WTG table to pass control to another executor. 
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Stage 1 Open Executor IGG0191C: Executor IGG0191C operates as follows: 


It receives control from the Open routine if the DD statement is DUMMY. 
It issues a GETMAIN macro instruction for a DEB. 
It does a DEBCHK, ADD, to put the DEB in the DEB table. 


It issues a LOAD macro instruction for IGGO19AV and stores the 
characters ‘AV’ in the subroutine ID section of the DEB. 


It issues aGETMAIN macro instruction for buffer space and constructs 
the buffers. 


It sets various audit trail bits. 


It issues a DMABCOND macro instruction if BUFLEN and BLKSIZE are 
not specified for QSAM. 


The executor specifies in the WTG table that IGG01911 is the next 
executor for this DCB. 


Stage 1 Open Executor IGG01911: Executor IGG0191I is loaded after 
IGG0196B, unless the Open executors must load UCSB or FCB images. In 
this case, it is loaded after IGGO191V, IGG0197U, IGG0197F, or 
IGG0197M. 


The executor operates as follows: 


If a buffer pool has already been built, the executor gets virtual storage for 
a record area for QSAM logical record interface. 


If the values in both the DCBBUFL and DCBBLKSI fields are zero, the 
executor issues a DMABCOND macro instruction. 


If time sharing (TS) is specified with BSAM and DCBBUFL and 
DCBBLKSI fields are zero, it sets the length of the buffer to terminal line 
length. When QSAM is specified and DCBBUFL and DCBBLKSI fields 
are zero, it sets the length of the buffer to logic record length. If 
DCBLRECL field is also zero, it sets the length of the buffer to terminal 
line length. 


If the value in either the DCBBUFL or DCBBLKSI field is not zero, the 
executor uses that value to establish the size of the buffer. The value in the 
field DCBBUFNO determines the number of buffers constructed. 


If the DCB specifies blocked records, a unit record device, output, and not 
undefined RECF®, it turns off the blocked-records bit in DCBRECFM. 
For fixed-length records, it sets DCBBLKSI equal to DCBLRECL. 


If logical record interface is required for variable-length spanned records 
processed in locate mode, the executor adds a length of 32 bytes plus the 
maximum logical-record length, which is specified in the DCBLRECL field 
for a record area to the size of virtual storage required. Eight (4 bytes of 
padding) more bytes are added to the buffer control block to store the 
address of the record area. Flags are set (X‘CO’) to indicate extended 
buffer control block and presence of record area. 


It issues a DMABCOND macro instruction if BUFTEK=A is specified and 
the processing mode is not locate. 


It stores the length of the entire record area in the first word of the record 
area. 
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e It specifies that executor IGGO0193I is required for this DCB in the WTG 
table. It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0191N: Executor IGG0191N receives control 
after executor IGGO196A. It supplements executor IGGO196A by building 
the device-dependent portion of the DEB for direct-access devices. 


For partitioned data sets, it sets the Authorized Library Table bit in the DEB 
if the data set is in the Authorized Library table. 


If the data set resides on an MSS virtual volume, an ICBACREL macro is 
issued to allocate space on and/or stage data to a direct-access device. If MSS 
window processing has been requested by the user, a flag is set on in the 
DEBXFLG1 field in the DEB extension, providing the MSS data set is (a) 
physical sequential in organization, (b) allocated in cylinders, and (c) being 
processed by QSAM or BSAM for INPUT or OUTPUT only (not INOUT, 
OUTIN, nor UPDAT). Any errors result in abnormal termination (see 
ABEND code 413, return code 2C, in the “Diagnostic Aids” section of this 
manual). If a partitioned data set resides on an MSS virtual volume and will 
be opened for INPUT processing, the following options exist at the time the 
data set is opened: 


e To stage the entire data set to end-of-file, specify OPTCD=H as a DCB 
subparameter on the associated DD statement. 


e To stage only the directory of the data set, do not specify OPTCD on the 
associated DD statement. 


Note: The OPTCD option may only be specified on the DD statement; it 
cannot be specified with the DCB macro. 


The user label extent is not inserted into the DEB. This executor specifies 
either IGGO191B or IGGO191Y as the next entry in the WIG table for 
processing the DCB, unless the DCB specifies EXCP, in which case 
IGG01911 is the next executor for this DCB. It then searches the WIG table 
to pass control to another executor. 


Stage 1 Open Executor IGG0191T: Executor IGGO191T is entered after 
Open executor IGG0196A or IGGO196B if a printer with the UCS feature is 
specified. 


The executor operates as follows: 


e It uses the EXCP macro instruction to execute block data check or reset 
block data check according to the specification in this DCB. If the EXCP 
fails, an XCTL to IGGO191V is made to get a DMABCOND macro 
issued. 


e It issues a LOAD macro instruction for the message CSECT. 


e If the task that issued the OPEN is the communications task, it XCTLs to 
IGG0191V to find the appropriate stage 2 executor. 


e It examines the UCB and JFCB to determine which FCB image or UCS 
image is to be loaded. If the printer is a 3203 or 3211, and no FCB or UCS 
activity is required, control is passed to IGGO197F to clean up and pass 
control to a stage 2 executor. 


e When no UCS im2¢e is specified in the JFCB and the UCB has no UCS 
image ID, or the UCS image ID in the UCB is not a default UCS image, 
the executor requests an operator to specify a UCS image. Then it specifies 
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in the WTG table that executor IGGO191U is the next executor required 
for this DCB. 


When no UCS image is specified in the sFCB but UCS image ID in the 
UCB is a default UCS image ID, the currently loaded UCS image is used 
for this DCB and is ‘force loaded’ for integrity reasons. 


If no FCB image is specified in the JFCB, but the FCB image ID in the 
UCB is a default ID, the currently loaded FCB image is ‘force loaded’ for 
integrity reasons. 


If no FCB image is named in the JFCB and the UCB has no FCB image 
ID, or the FCB image ID in the UCB is not a default image, the executor 
issues a console message requesting that an image be specified. 


The message text for all console messages is extracted from the message 
CSECT. 


IGG0191U is specified as the next executor. 


It opens SYS1.IMAGELIB and sets an audit trail bit to indicate that 
SYS1.IMAGELIJB is open. If the IMGLIB SVC fails, control is passed to 
1GG0191V fora DMABCOND macro to be issued. 


It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0191U: Executor IGG0191U is entered after 
executor IGG0O191T when the specified UCS image is to be loaded from 
SYS1.IMAGELIB. 


The executor operates as follows: 


It requests the operator to mount a chain/train cartridge only if the UCS 
image specified in the DD statement is different from the currently loaded 
image. 

The message text for console messages is extracted from the message 
CSECT. 


It uses the BLDL macro instruction to locate the UCS image in the 
SYS1.IMAGELIB. If an I/O error occurs during BLDL processing, an 
XCTL to IGGO191V is made to geta DMABCOND macro issued. 


If the image is not found in the library, the executor requests the operator 
to specify an alternate UCS image to be used. 


If the operator replies ‘‘cancel,” it sets an ABEND code for IGGO191V to 
have a DMABCOND macro instruction issued. 


The executor specifies in the WTG table that IGGO191V is the next 
executor required for this DCB. 


Stage 1 Open Executor IGG0191V: Executor IGGO191V is entered after 
executor IGGO191U to load the UCS image into virtual storage and 
subsequently into the UCB buffer. It can also issue a message requesting the 
operator to specify an FCB image. 


The executor operates as follows: 
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It tests to see if it was entered to issue a DMABCOND macro and if so, * 
issues the macro. 


It uses the LOAD macro instruction to retrieve the UCS image from 
SYS1.IMAGELIB. 
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e It sets an audit trail bit to indicate that a UCS image was loaded and must 
be deleted. 


e It uses the EXCP macro instruction to load the UCS image into the UCS 
buffer. If an I/O error occurs, a DMABCOND macro instruction is issued. 


e When all the following conditions are met, it requests the operator to 
specify which FCB image is to be loaded: 


The printer is a 3203 or 3211. 
The current FCB image is not a default. 
An FCB image was not specified in the DD statement. 


The UCS image does not have to be verified. (If retrieval of a UCS 
image from SYS1.IMAGELIB is not required, IGG0191T issues the 
FCB image request.) 


e The message text for console messages is extracted from the message 
CSECT. 
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e The executor updates the entry in the WTG table with one of the 
following: 


1GG0197U if the UCS image must be verified. 


1GG0197E if an FCB load and/or verification is required, and UCS 
verification is not required. 


IGGO1911 if the printer is a 1403 and the buffer control block is specified. 
IGG0191G if the printer is a 1403 and normal scheduling is specified. 
1GG0191Q if the printer is a 1403 and chained scheduliny is specified. 
1GG01911 if the DCB specifies EXCP. 

e It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGGOI9LY: Executor IGGOI9LY receives control 
after executor IGGO196A or executor IGGOI9IN when the user-totaling 
option has been specified in the DCB, that is, when bit 6 of DCBOPTCD is 
1. 


This executor operates as follows: 


e It sets bit 7 of DCBOFLGS to 0 to prevent a successful open and issues a 
DMABCOND macro to write a message to the programmer for any of the 
following reasons: 


—No DCB exit list. 
—No totaling entry in DCB exit list. 
— Image area address is Zero. 


e It calculates the size of the area required to save the user's totaling areas 
and issues a GETMAIN to obtain the space. 


e It constructs control blocks for the work area and places the address of the 
save area in the access method portion of the DEB. (Figure 40 deseribes 
the access method save area.) 


e It loads the resident save routine IGGO19AX and places the ID of the save 
routine in the DEB and the address in the user-totaling save area. 


e It specifies in the WTG table that executor 1IGGO191B is the next executor 
required. It then searches the WTG table to determine the next executor to 
receive control. 


Stage 1 Open Executor IGGO1931: This executor receives control from 
IGGO19I11. 


The executor specifies which stage 2 executor is specified in the WTG table. 
The module selector table for stage 2 executors, Figure 25, should be used to 
determine which stage two executor is required for this DCB. 


If chained scheduling can be supported and has been requested (with 
OPTCD=C), an appropriate chained scheduling executor is specified in the 
WTG table. 


If chained scheduling can be supported but has not been requested, tests are 
made to see if it can be given anyway without interfering with a dependence 
that the issuer of Open may have on normal scheduling. There are two cases 
where Open cannot supply chained scheduling unless requested by the 
keyword OPTCD=C. 
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1. Printer—The PRTOV macro may be used and it does not operate 
properly with chained scheduling. 


2. Reading format-U records—With chained scheduling, the actual length 
of the record is not available. 


It then searches the WTG table to determine which executor receives control. 
The IECRES macro instruction is used to pass control to the next executor. 


Stage 1 Open Executor IGG0196A: Executor IGGOI96A receives control 
from and supplements IGGO196I. 


e The executor issues a DEBCHK (TYPE=ADD) macro to add the newly 
created DEB address to a protected area table of DEB addresses. 


e It completes the DEB construction initiated in Open executor 1GGO196l. 


e The executor specifies in the WTG table which module is the next one 
required for this DCB, as follows: 


For direct access—executor IGGOI9IN. 


If the device type is a printer with the UCS or FCB feature—executor 
IGGOI9IT. 


If the device type is a 3800 printer and EXCP is specified—executor 
IGGO0196Q. 


If the device type is other than a printer and EXCP is 
specified—executor IGGO1I911, the final module of the Open executors. 


If the device type is tape, not Input, not EXCP and the user-totaling 
facility is specified—exccutor IGGOI9LY. 


If the device type is other than a printer with UCS feature or direct 
access, BSAM or QSAM is specified, and the user-totaling facility is not 
specified—executor IGGO191B. 


e It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor 1GG0196B: Executor 1GGO196B receives control 
from and supplements IGGO191B. 


The executor operates as follows: 
e For QSAM, DCBBUFNO 1s set to five (three for 2520 or 2540) if not 
previously specified. 


e Executor issues DMABCOND macro instruction (calls problem 
determination module) if the buffer length is less than blocksize or if data 
set is for a printer and something other than output (only) is specified. 


e Determines the next executor to receive control. 


a. For a time sharing (TS) task, control is transferred to IGGO196S unless 
buffers are wanted. If buffers are needed, the Open routine transfers 
control to IGGOI9IT. 


b. A test is made to determine if either the 3505 (without OMR or RCE) 
or 3525 is being used, just prior to the XCTL. subroutine. If either 
device is being used, control is passed to module IGGO0197L:; otherwise. 
normal processing continues. 


c. If a buffer pool is required, IGGOI9ITL receives control. 


d. If the allocated device is a 3800 printer, the next executor ts 
1IGG0196Q. 


e. Otherwise, IGGO1931 receives control to select the stage 2 executor. 
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Stage 1 Open Executor IGG0196I: Executor IGGO196I receives control from 
and supplements IGGOI9IA. 


The executor operates as follows: 


e It computes the virtual-storage requirement for the DEB and obtains the 
space. The space does not include the user label extent, as it is reflected in 
the first extent field of a format-1 DSCB for a physical sequential or direct 
data set. If no primary extent has been requested for an output data set. as 
shown by the contents of the DSINOEPV field of the DSCB, the executor 
sets the DCBCINDI field to show a volume-full condition. 


e It specifies in the WTG table that executor IGGO196A is the next executor 
required for this DCB. 


e Jt then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0196Q: This executor initializes the 3800 printer 
and is entered only when a data set is allocated to a 3800. It receives control 
from IGGO196A (EXCP) and IGGO196B (BSAM/QSAM). 


The executor operates as follows: 


e It obtains storage for the 3800 ERP work area if one does not exist. Once 
obtained, the ERP work area remains until the next system 1PI.. 


e It obtains storage for a SETPRT parameter list. If the JFCB indicates that 
a JFCBE (JFCB extension for the 3800) exists, the SETPRT parameter 
list is then completed using the information in the JFCBE and the JFCB. If 
the JFCBE does not exist, the SETPRT list contains zeros in the 
device-dependent fields. The module sets the SETPRT initialization bit on. 
this causes the SETPRT executors to reset the device to its hardware 
defaults before the device is set up with data set dependent requirements. 


e If SETPRT is not successful, message IEC162 with SETPRT return codes 
is issued, followed by an ABEND (IEC1411013-CC). 


e This executor then indicates in the WTG table the Stage 2 executor to 
receive control for processing the DCB. The module selector table for 
Stage 2 executors, Figure 25, should be used. 


Stage 1 Open Executor IGG0O196R: See OS/VS IBM 3886 Optical 
Character Reader Model !| Logic. 


Stage 1 Open Executor IGG0197E: Executor 1GG0197E locates the FCB 
image and loads the FCB buffer. It is entered from IGGOI9IT, IGGOLOTV. 
or IGGO197U. 


The executor operates as follows: 


e It checks the DCB exit list to see whether the specified FCB image is 
defined in the problem program. 


e It uses the BLDL macro instruction to locate the FCB image in 
SYS1.IMAGELIB if the image was not defined in the problem program. 


e It issues a LOAD macro instruction to bring the FCB image into storage 
and sets an audit trail bit to indicate that the FCB image must be deleted. 


e If the image ts noi found in the library, the executor requests the operator 
to specify an alternate FCB image. 


e If the operator replies ‘cancel,’ it sets a code for IGGOLY7TE to issue a 
DMABCOND macro instruction. 
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The FCB image is loaded into the FCB buffer. If an 1/O error occurs 
during the FCB load, issue a console message. 


It resets the FCB-image-loaded audit trail bit if it deletes the FCB image. 


The message text for console messages is extracted from the message 
CSECT. 


It specifies in the WTG table that IGGO197F is the next executor required 
for this DCB. 


It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0197F: Executor 1GG0197F prints a verification 
of the FCB image and issues an “align forms and verify” message to the 
operator. It is entered form IGGOI9IT, IGGOI97E, or IGGO1L97U. 


The executor operates as follows: 


It checks to see whether an align-forms-only or a verify-only switch is set. 
If VERIFY is specified, the FCB image its printed. 


If VERIFY or ALIGN is specified, the operator is instructed to align the 
forms. 


It resets the audit trail bits for FCB image loaded and SYS1.IMAGELIB 
opened after it deletes the FCB image and closes SYS!.IMAGELIB. 


The executor specifies in the WTG table the next module required for this 
DCB, as follows: 


1GGO01911 if the buffer control block is specified. 
1GG0191G if normal scheduling is specified. 
1GG0191Q if chained scheduling is specified. 
IGGO1911 if the DCB specifies EXCP. 


It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGGO197L: Executor IGGO197L. receives control 
from IGGO196B whenever the 3505 or 3525 is specified. 


The executor operates as follows: 


It initiates registers with the addresses of the DCB, UCB, ECB, and CVT. 
A test is made to determine if either OMR or RCE its being used. 


If OMR is specified, a test is made to determine if the device is a 3525. If 
the device is a 3525, control is transferred to IGGO197M. 


If either OMR or RCE is specified, the format descriptor record is loaded 
and decoded. 


After the Read-only has been executed and the format card has been 
translated, an OMR or RCE CCW is constructed and executed (writes the 
format of the device). 


It specifies in the WTG table that IGGO197M is the next executor required 
for this DCB. It then searches the WTG table to pass control to another 
executor. 
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Stage 1 Open Executor IGG0197M: IGGO197M receives control from 
IGGOI97L. 


The executor operates as follows: 


e If an OMR or RCE format card is invalid, or if an invalid device is 
specified for OMR, this module issues a WTP message and an ABEND 
(004) with a return code of 05. 


e If no invalid condition exists, the executor specifies in the WTG table the 
next module required for this DCB, as follows: 


IGGOL9IT if QSAM is specified and no buffer pool control block exists. 


IGGO197N if either BSAM or QSAM is specified and the user has 
specified a buffer-pool control block. 


IGGOI9LI if BSAM is specified and the user has specified a buffer 
number but not a buffer buffer-pool control block. 


e [t then searches the WTG table to pass control to another executor. 
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Stage 1 Open Executor IGG0197U: Executor IGG0197U is entered from 
IGG0191V to verify a UCS image. It can also issue a message requesting the 
operator to specify an FCB image. 


The executor operates as follows: 
e It prints the UCS image. 


e It deletes the UCS image, closes SYS1.IMAGELIB, and resets the 
corresponding audit trail lists. 


e It asks the operator to specify the FCB image to load, only if all of the 
following conditions exist: 


The printer is a 3203 or 3211. 
The current FCB image is not a default. 
An FCB image was not specified in the DD statement. 


The executor specifies in the WTG table the next module required for this 
DCB, as follows: 


IGGO0197E if an FCB load and/or VERIFY is required. 


I1GG0191]1 if the printer is a 1403 and the buffer control block is 
specified. 


I1GG0191G if the printer is a 1403 and normal scheduling is specified. 
I1GG0191Q if the printer is a 1403, and chained scheduling is specified. 
IGG01911 if the DCB indicates EXCP. 

e It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0199F (SYSIN/SYSOUT): Executor IGG0199F 
receives control when the Open routines (see Diagram K) determine that the 
SAM-SI executors are required to process a DCB for a SYSIN or SYSOUT 
data set (*, DATA, or SYSOUT coded in the DD statement). 


The executor operates as follows: 


e It issues aGETMAIN macro instruction to obtain virtual storage for a JES 
compatibility interface control block (CICB). The format of the CICB is 
described in OS/VS2 Data Areas. 


e It constructs an ACB and a RPL in the CICB, for communicating with the 
JES, and initializes an SVC exit list with entries for BSP and SYNADAF 
SVCs. 


« It supplies defaults to appropriate DCB fields in the open copy of the 
DCB. 


e It specifies in the WTG table that executor IGGO199G is the next executor 
required for this DCB. 


e It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0199G (SYSIN/SYSOUT): Executor IGG0199G 
receives control from the SAM-SI Open executor IGG0199F. 


The executor operates as follows: 


e The WIG table is scanned and an Open list is constructed to open an ACB 
for each SYSIN/SYSOUT entry in the WTG table. 


¢ It issues an OPEN (type J) macro instruction for the ACBs just 
constructed. 
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e It chains the DEB, created by OPEN for the ACB, to the DCB. The 
address of the DCB is placed in DEBECBAD, leaving DEBDCBAD 
pointing to the ACB (see Figure 38). 


e It checks the DCB for invalid combinations of access method options. An >. 
ABEND (013) is requested (using Problem Determination routines) if any | 
invalid combinations are found. 


e It specifies in the WTG table that IGGO199W is the next executor required 
for this DCB. 


« It then searches the WTG table to pass control to another executor. 


Stage 1 Open Executor IGG0199W (SYSEN/SYSOUT): Executor 
IGG0199W receives control from the SAM-SI Open executor IGG0199G. 


The executor operates as follows: 


e It determines the buffer requirements, then obtains and chains buffer (if 
necessary). 


e The RPL, contained in the CICB, is initialized according to the record 
format specified in.the DCB. 


e It issues a GETMAIN macro instruction to obtain a work area for 
collecting VS segments, if necessary. 


e It specifies in the WTG table that IGGO198L is the next executor required 
for this DCB. 


e It then searches the WTG table to pass control to another executor. 


A stage 2 Open executor establishes device-oriented information for the i 
processing described by a DCB, and completes device-oriented control blocks J 
or fields. One of the stage 2 executors receives control for each DCB being 

opened; the WTG table identifies the executor required for each DCB. On 

conclusion of an executor’s processing it enters in the WTG table the 

identification of the stage 3 executor required. Figure 25 lists the access 

conditions that cause the different stage 2 executors to be loaded and to 

receive control. 


The device-oriented processing performed by a stage 2 executor primarily 
consists of the construction of input/output blocks (IOB), their associated 
channel programs, and the identification of the end-of-block routine required 
for the processing described by the DCB. For chained channel-program 
scheduling, executors also construct interruption control blocks (ICB). 


Figure 25 lists the access conditions that cause the different stage 2 executors 
to be loaded and to receive control. The executors are described in the text 
that follows and are in the same sequence as the list in Figure 25 under 
Executors. 


In this figure an X in a column represents a condition that must be met for the 
executor to be selected. A No in a column indicates that the condition must 
not be specified for the executor to be selected. A blank in the upper portion - 
of the table indicates that either the condition is not required for selection or , 
not examined at this time. The table should be used in conjunction with the 


a 


Access Method Options! 


BSAM or 

QSAM 

Input or 

Output 

fnout, Outin 

Update 

Unit Record or 
Magnetic Tape or 
Paper Tape 
Direct-Access Storage 
Write-Load (Create-BDAM) 
Track Overflow 
Chained Scheduling 
Search Direct 

RPS Device 

3505 

3525 

3890 

OMR or 

RCE or 

Print only and Associated Files 
TS terminal 

1419 MICR 


Executors 
IGG0191D 
IGGO191G 
1IGG0191H 
OGGO0I91J 
IGGOISIK 
IGGOI9IL 
IGG0191M 
IGG01910 
IGGO191P 
1GG0191Q 
IGGOI9IR 
1GG0191S 
1GG0191W 
1GGO0191X 
IGGO191Z 
1GG019123 
IGG0196K 
1GG0196L 
1GG0196P 
1GG0196S2 
1GG0197C3 
1GG0197D3 
IGG0197N 
1GG0197P 
IGG0197Q 
1GG0197V 
IGG0199K 
IGGO199L 
1GG01990 
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No No No| No No X x X | No 
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X 4 


ID 1D 1D 
1G 1G 1G 1G 1G 
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6K 
6L 
6P 
6S 

7C 
7D 

7N 7N|7N 7N 

7P 7P 

7Q 7Q 

7V 
9K 
9L 
90 


1. If *, DATA, or SYSOUT are specified on the DD statement, no stage 2 executors are loaded. 
2. See OS/VS TCAM Logic, SY30-2059. 
3. See OS BSAM Logic for IBM 1419/1275, GY21-0012. 


Figure 25. Open Executor Selector—Stage 2 
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flow of control information in Diagram E, SAM Flow of Control for Open 
Executors. 


Stage 2 Open Executor IGG0191D: Executor IGGO0191D receives control 

after executors IGG0196B, IGGO193I under normal conditions or from 2} 
executors IGG0191W, IGG0191K (chained scheduling not supported), under 

abnormal conditions if the Open parameter list specifies: 


Input or Output 
and the DCB specifies: 
Direct-access storage device 
BSAM or QSAM and simple buffering 


However, track overflow, and chained channel-program scheduling are not 
specified. 


The executor operates as follows: 


e It calculates the amount of virtual storage required and issues a GETMAIN 
macro instruction to get the space from subpool 0 in the user’s key for 
IOBs and associated channel programs. It stores the number of bytes 
gotten for the IOBs in the second word of the audit trail for force close. 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


e If input is specified with search direct (OPTCD=Z), control is passed to 
IGG01990 where the channel program is constructed. 


e If input is specified without search-direct, control is passed to IGG0O1910 
where the channel program is constructed. 


e For output data sets, the executor constructs IOBs and write-channel J : 
programs. The address of the first IOB is placed in the DCB. See Appendix 
B for the format of the channel program constructed by this executor. 


e It issues a DMABCOND macro instruction if buffers are not available for 
DCBs that specify QSAM. 


A test of the non-rotational position sensing (RPS) indicator bit is made to 
see whether the channel programs utilize the RPS feature. If the bit is on (1), 
standard channel programs are built. If, however, the bit is not on, additional 
virtual storage is acquired to employ the RPS feature’s two CCWs (Set-sector 
and Read-sector) in the channel programs. The two commands are 
incorporated where appropriate. 


e If variable-length records are specified, IGGO1915 is the next executor 
required for this DCB. Otherwise IGGO01910 is specified in the WTG table 
as the next executor required for this DCB. It then searches the WTG table 
to pass control to another executor. 
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Stage 2 Open Executor 1GG0191G: Executor IGGO191G receives control 
after executors IGGO196B, IGGO1931, IGGO19IV. 1IGG0196Q., IGGO197F, 
1GG0197U, IGGO197N under normal conditions or from executors 
1GG0191R, IGGO191Q (chained scheduling not supported), under abnormal 
conditions if: 


The DCB specifies BSAM or QSAM and either unit record, magnetic tape, 
Or paper tape. 


The Open macro parameter is INOUT or OUTIN and the DCB specifies 
magnetic tape. 


The executor operates as follows: 


e It computes the amount of virtual storage required for the JOBs, issues a 
GETMAIN macro instruction from subpool 0, in the user's key, and then 
sets the virtual storage for the IOBs to zeros. It stores the number of bytes 
gotten for the IOBs in the second word of the audit trail for foree close 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


e It then tests to see if the device type for this data set is unit record. If so, 
1GG0196K is specified in the WTG table for this DCB and the check for 
other DCBs that need this executor is made. 


e If the device is not unit record, processing continues in this module. It 
constructs the channel programs in the JOBs and fills in the other fields of 
the IOBs. It stores the address of the first IOB in the DCB and sets the 
first IOB bit in the first IOB. If there is only one JOB for this data set, it 
sets the IOB unrelated flag. 


The executor specifies in the WTG table the next executor required for this 
DCB. If the DCB specifies paper tape, the next executor is IGGOI912. If the 
DCB specifies variable-length record format, the next executor is IGGOL9OTS, 
For the remaining access conditions that cause this executor to be used, the 
next executor is IGGO1910. The executor then searches the WTC: table to 
pass control to another executor. 


Stage 2 Open Executor IGGO191H: Stage 2 Open executor IGGOI9 1H 
receives control after executor IGGO191S, if the DCB specifies: 


Track overflow 


(but not update). If both track overflow and update are specified, executor 
1GG0191P receives control. 


The executor operates as follows: 


e It constructs IOBs and associated channel programs, using the storage 
gotten by IGGO191S. 


e It issues a DMABCOND macro instruction if buffers are not available for 
DCBs that specify QSAM. 


e The module checks the non-rotational position sensing (RPS) indicator 
and, if it is off, inserts the RPS CCWs. When RPS channel programs are 
built for variable record format. the SI.I bit is turned on in the Read-data 
CCW, thereby eliminating length checking. 


e It identifies the end-of-block routine and the direct access Note Point 
routine to be used in the processing specified by this DCB. 
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e It specifies in the WTG table that executor [GG01913 (for IGGO1916, if 
the DCB specifies variable-length record format) is the next executor 
required for this DCB. It then searches the WTG table to pass control to 
another executor. ; 


Stage 2 Open Executor IGGO191J: Executor IGGO191J receives control after 
executor IGGO196B or 1GGO1931 under normal conditions or IGGO191X if 
chained scheduling was requested but could not be honored and if the Open 
parameter list specifies: 


INOUT or OUTIN 

and the DCB specifies: 
Direct-access storage 

The executor operates as follows: 


e [It calculates the amount of virtual storage needed to build the JOBs for the 
data set and then issues a GETMAIN from subpool (), in the user's key, for 
the required space. It then sets the area to zeros. It stores the number of 
bytes gotten for the IOBs in the second word of the audit trail for force 
close. 


e In calculating the virtual storage area needed for the IOBs, the executor 
tests for non-rotational position sensing. If the indicator is off, additional 
space to implement the RPS CCWs in the channel programs is acquired. 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


e The executor then begins constructing the channel programs and filling in 
fields in the IOBs. It constructs the search ID equal. the TIC. the READ. 
and if RPS is specified, the Set-sector commands. It also includes a portion 
for write-check if specified. 


e The executor specifies in the WTG table that executor IGGOI96L ts the 
next executor needed for this DCB and then searches the WTG table to 
pass control to another executor 


Stage 2 Open Executor IGGOL9IK: Executor IGGOI9IK receives control 
after executor IGGO196B or [GG01931 if the DCB specifies: 


Chained channel-program scheduling 
Direct-access storage 
Open parameter list specifies INPUT 


It is loaded and receives control when another executor finds its identification 
in the WTG table. 


The executor operates as follows: 


e If the NOTE/POINT macro instruction is used, the executor identifies 
direct access Note/Point module IGGOIOBK to be loaded for use with this 
DCB. 


e It identifies the end-of-block routine to be loaded and used for the 
processing described by this DCB. 


e It sets the ID number in DCBCNTRL field. 


e From subpool 0, in the user's key, it obtains space for and constructs one 
1OB, the required number of ICBs (that is. one [CB per channel program 
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or buffer) and their associated channel programs, and then links them. It 
stores the number of bytes gotten for the IOBs in the second word of the 
audit trail for force close. 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


e A test of the non-rotational-position-sensing (RPS) indicator (bit 2 of 
JFCBMASK +6) is made. If this bit is not on, additional virtual storage is 
acquired by GETMAIN to incorporate the RPS CCWs. An additional 
doubleword is also acquired for the sector values. When the channel 
programs are built, the new CCWs are inserted. 


e It issues a DMABCOND macro instruction if buffers are not available for 
DCBs that specify QSAM. 


e It sets the PCI flag in the Read Count CCW, only if in a real address 
environment. 


e It sets bit 5 of DCBCIND2 to one to indicate that chained scheduling is 
being supported. 


e If the record format is vanable length spanned, the executor specifies 
IGG01916 as the next executor to receive control; otherwise, IGGO1913 is 
specified as the next executor to receive control. 


e If the number of channel programs is less than or equal to one 
(DCBBUFNO if QSAM or DCBNCP if BSAM); the executor sets bit 5 of 
DCBCIND72 to zero to indicate that chained scheduling is being not 
supported. It then specifies IGG0191D as the next executor to receive 
control. 


e It then searches the WTG table to pass control to another executor. 


Stage 2 Open Executor IGGO191L: Executor IGGO191L receives control 
after executor IGGO196B or IGG01931 if the DCB specifies: 


Create-BDAM (Wnite-Load) 


The executor constructs IOBs and enters the address of the first IOB into the 
DCB. Then it loads the Create-BDAM Write, Check, and Channel End 
appendages and inserts their addresses into the DCB. 


It loads the create-BDAM channel end appendage and places its address in 
the DEB appendage vector table (AVT). 


With the rotational position sensing (RPS) feature, more virtual storage is 
needed for the channel programs. This executor computes the extra bytes 
needed for the RPS channel programs and issue a GETMAIN. The sector 
bytes are placed at the end of all the IOBs and channel programs. The last 
doubleword of the GETMAIN area is used for sector manipulation. The first 
byte is used by Set-sector and by Read Sector. The second byte is used as a 
byte of zero on which to issue a Set-sector command in order to position at 
the beginning of the track. 


If track overflow is specified, the routine specifies that executor IGGO191M 
is the next executor required for this DCB. Otherwise, the routine specifies 
IGGO0199L as the next executor required. It then searches the WTG table to 
pass control to another executor. 
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Stage 2 Open Executor IGG0191M: Stage 2 Open executor IGGO191IM 

constructs channel programs to write track-overflow blocks using BSAM for a 3 
data set to be later processed by BDAM. Executor IGGO191L identifies it in 
the WTG table as its successor executor if the DCB specifies: 


Create-BDAM (Wnrite-Load) 
Track overflow 


With the rotational position sensing (RPS) feature, more virtual storage is 
needed for the channel programs. This executor computes the extra bytes 
needed for the RPS channel programs and issues a GETMAIN. The sector 
bytes are placed at the end of all the IOBs and channel programs. The last 
doubleword of the GETMAIN area is used for sector manipulation. The first 
byte is used by Set-sector and by Read Sector. The second byte is used asa 
byte of zero on which to issue a Set-sector command in order to position at 
the beginning of the track. 


The executor operates as follows: 


e If the extents are smaller than the blocks, it issues a DMABCOND macro 
instruction to ABEND. 


e It constructs channel programs to write the number of segments required 
by the size of the block. 


e It specifies in the WTG table that Open executor processing is completed 
for this DCB. It then searches the WTG table to pass control to another 
executor. If the WTG table has no other entries, the executor returns 
control to the Open routine. 


Stage 2 Open Executor IGG01910: Executor IGGO1910 receives control -) 
from IGGO191D if the Open parameter list specifies: 


Input 
and the DCB does not specify: 
Search Direct (OPTCD=Z) 


The executor constructs Read channel programs for the IOBs constructed in 
1IGG0191D. 


The module tests the non-rotational position sensing (RPS) indicator. If the 
indicator is not on, IGGO1910 inserts the RPS CCWs, where appropriate, in 
the channel program. 


For QSAM DCBs it issues a DMABCOND macro instruction if buffers are 
not available. 


The Read channel program is modified for offset Read (that is, for reading a 
BDAM data set with VS record format and keys using BSAM READ macro 
instructions. ) 


e If the record format is variable, IGGO1915 is specified as the next executor 
to receive control; otherwise, IGGO1910 is specified as the next executor 
to receive control. 


e It then searches the WTG table to pass control to another executor 


Stage 2 Open Executor 1GG0191P: Stage 2 Open executor IGG0191P 
receives control after executors IGGO196B or IGGO1931 if the Open . 
parameter list specifies: ») 


Update 
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(whether or not track overflow is also specified). It is loaded and receives 
control when another executor finds its identification in the WTG table. 


The executor operates as follows: 
e It receives control after it is loaded. 


e It identifies module IGGO!19CC as the end-of-block routine to be loaded 
for use with the DCB. 


e If the NOTE/POINT macro instruction is specified, it identifies module 
IGGO19BK as the NOTE/POINT routine to be loaded for use with this 
DCB. 


e It calculates the amount of storage required and issues a GFTMAIN macro 
instruction to get the space from subpool 0 in the user's key for LOBs and 
associated channel programs. It stores the number of bytes votten for the 
IOBs in the second word of the audit trail for force close 


e When control is returned from GETMAIN, it Sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


¢ Calculations for the amount of storage needed include one byte for all 
Read channel program segments and one byte for each Write channel 
program segment. The total number of extra bytes is equal to the number 
of IOBs, plus one. This value is rounded up to a multiple of eight and 
added to the total. 


e If RPS, executor IGGO191Z is specified in the WTG table. If non-RPS, 
executor IGGO196P is specified in the WTG table. It then searches the 
WTG table to pass control to another executor. 


Stage 2 Open Executor IGG0191Q: Executor IGGO191Q gains control after 
executors IGGO196B, IGGOIIIV, IGG0196Q, IGGOL97TU. IGGOL97E, or 
IGG01931 if the DCB specifies: 


Chained channel-program scheduling 
Unit record, magnetic tape 
The executor operates as follows: 


¢ If the DCB specifies the CNTRL macro instruction, this executor identifies 
executor IGGO191G in the WTG table as the next executor to receive 
control for this DCB. It then searches the WTG table to pass control to 
another executor. 


¢ If the NOTE/POINT macro instruction is specified and the device is 
magnetic tape. it identifies module IGGOLOBL. to be loaded for use with 
the DCB. 


e If the NOTE/POINT macro instruction is specified, and the device is unit 
record, it identifies dummy data set module IGGOL9AV to be loaded and 
used in place of Note /Point. 


e It identifies the end-of-block routine to be loaded and used for the 
processing described by this DCB. 


e From subpool (), in the user's key, it obtains space for and constructs one 
IOB, the required number of ICBs (one per buffer or channel program) 
and channel programs appropriate to the device. and links them It stores 
the number of bytes gottenYor the LOBs in the second word of the audit 
trail for force close. 
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e When control is returned from GETMAIN, it sets an audit trail bit to 7 
indicate to the Force Close executor that storage should be freed. J 


e It sets the PCI flag in the Read Count CCW, only if in a real address 
environment. 


e For QSAM data sets with fixed-blocked record format on a unit record 
device, and the buffer pool was not gotten by OPEN, it sets DCBBLKSI 
equal to DCBLRECL and turns off the blocked records bit in 
DCBRECFM. 


e If chained scheduling cannot be supported because of conflicting 
specifications, bit 5 of DCBCIND2 is set to 0 to indicate that chained 
scheduling is not being supported. The executor specifies IGGO191G as 
the next executor to receive control; otherwise, bit 5 of DCBCIND2 is set 
to | to indicate support of chained scheduling and IGG01913 is specified 
as the next executor to receive control, unless variable spanned record 
format is specified. In this case, IGGO1916 is specified as the next executor 
for this DCB. 


e It then searches the WTG table to pass control to another executor. 


Stage 2 Open Executor IGGO191R: Open executor IGGOI9IR receives 
control after executors IGGO196B or IGGO1931 if the Open parameter list 
specifies: 
INOUT, or OUTIN 
and the DCB specifies: 
Chained channel-program scheduling ) 
Mugnetic tape | 
The executor operates as follows: 


e If the device is direct-access storage, it identifies Note ‘Point module 
1GGO19BK to be loaded for use with the DCB. 


e If the device is magnetic tape, it identifies Note /Point module IGGO19BL 
to be loaded for use with the DCB. 


e It identifies the end-of-block routine to be loaded for use with the DCB. 


e From subpool 0, in the user's key, it obtains space for and constructs one 
IOB, the required number of ICBs (one per buffer or channel program) 
and channel programs for direct-access storage or magnetic tape, and links 
them. It stores the number of bytes gotten for the LOBs in the second word 
of the audit trail for force close. 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


e It sets the PCI flag in the Read Count CCW, only if in a real address 
environment. 


e lf chained scheduling cannot be supported because of conflicting * 
specifications, bit 5S of DCBCIND2 is set to 0 to indicate that chained 
scheduling is not being supported. the executor specifies IGGO191G as the 
next executor to receive control, otherwise, bit S of DCBCIND2 is set to 1 
to indicate support of chained scheduling and 1GG01913 is specified as the ») 
next executor to receive control. 


e It then searches the WTG table to pass control to another executor. 


Stage 2 Open Executor IGG0191S: Stage 2 Open executor IGG0191S 
receives control after executor IGGO196B or IGGO193I if the DCB specifies: 


Track overflow 


(but not update). The executor is loaded and gains control when another 
executor finds its identification in the WTG table. 


The executor operates as follows: 


e It identifies the end-of-block routine and the direct-access NOTE/POINT 
routine to be used in processing specified by this DCB. 


e From subpool 0, in the user’s key, it obtains space for and constructs IOBs 
and channel programs for the maximum number of segments possible. For 
RPS devices, it increases the space required by the amount necessary to 
implement two RPS CCWs. It links the channel programs to the IOBs and 
the IOBs to one another. It stores the number of bytes gotten for the IOBs 
in the second word of the audit trail for force close. 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


« If search-direct has been requested (OPTCD=Z in the DCB), the executor 
specifies IGGO199K as the next executor required for this DCB. 


e It specifies in the WTG table that executor IGGO191H is the next executor 
required for this DCB. It then searches the WTG table to pass control to 
another executor. 


Stage 2 Open Executor IGG0191W: Executor IGGO191W receives control 
after executor IGGO191B or IGGO193I if the DCB specifies: 


Chained channel-program scheduling 
Direct-access storage 
Output 

The executor operates as follows: 


« It identifies the end-of-block routine to be loaded and used for the 
processing described by this DCB. 


« From subpool 0, in the user’s key, it obtains space for and constructs one 
IOB, the required number of ICBs (that is, one ICB per channel program 
or buffer) and their associated channel programs, and then links them. It 
stores the number of bytes gotten for the IOBs in the second word of the 
audit trail for force close. If the non-rotational position sensing (RPS) bit is 
off, the space for the IOB and ICB is increased to incorporate the RPS 
CCWs and the space is inserted. 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


e It sets the PCI flag in the Read Count CCW, only if in a real address 
environment. 


e It issues a DMABCOND macro instruction if buffers are not available for 
DCBs that specify QSAM. 


Method of Operation 157 


Page of SY26-3832-1 
As Updated 30 Nov 1979 
By TNL SN26-0956 


158 OS/VS2 SAM Logic 


e If chained scheduling cannot be supported because of conflicting 
specifications, bit S of DCBCIND2 is set to 0 to indicate that chained 
scheduling is not being supported, the executor specifies IGG0O191D as the 
next executor to receive control. If bit 5 of DCBCIND72 is set to 1 to 
indicate support of chained scheduling and IGG01916 is specified as the 
next executor to receive control unless the record format is variable length 
spanned, the next executor to receive control is IGGO1913. 


e It then searches the WTG table to pass control to another executor. 


Stage 2 Open Executor IGG0191X: Executor IGG0O191X receives control 
after executors IGGO191B or IGGO1931 if the Open parameter list specifies: 


INOUT or OUTIN 
and the DCB specifies: 

Chained scheduling 

Direct-access storage 


The executor is loaded and receives control when another executor finds its 
identification in the WTG table. 


The executor operates as follows: 
e It identifies the end-of-block routine to be loaded for use with the DCB. 


e From subpool 0, in the user’s key, it obtains space for and constructs one 
IOB, the required number of ICBs (one per buffer or channel program) 
and channel programs for direct-access storage and links them. It stores the 
number of bytes gotten for the IOBs in the second word of the audit trail 
for force close. If the rotational position sensing (RPS) indicator is off, the 
space acquired for the IOB is incremented to incorporate the RPS CCWs, 
which will then be inserted in the channel program. 


e When control is returned from GETMAIN, it sets an audit trail bit to 
indicate to the Force Close executor that storage should be freed. 


e It sets the PCI flag in the Read Count CCW, only if in a real address 
environment. 


e If chained scheduling cannot be supported because of conflicting 
specifications, bit 5 of DCBCIND2 is set to 0 to indicate that chained 
scheduling is not being supported, the executor specifies IGGO191J as the 
next executor to receive control; otherwise, bit S of DCBCIND72 is set to 1 
and IGG01913 is specified as the next executor to receive control, unless 
variable spanned record format is specified. In this case, IGGO1916 is the 
next executor for this DCB. 


e It then searches the WIG table to pass control to another executor. 


Stage 2 Open Executor IGG0191Z: Executor IGG0191Z receives control 
after executor IGGO191P, if the Open parameter list specifies: 


Update 
and: 


Record-ready channel programs are to be generated 
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The executor operates as follows: 


e It begins to construct IOBs and channel programs to empty and refill each 
buffer. 


e It links the IOBs and sets read only bits. 
e It sets ECBs to X‘7F’ and initializes IOB DCB pointers. 


e It builds the empty portion of the channel program; the write check and 
track overflow portion (if user specified), and begins building the refill 
portion of the channel program. 


e It stores the offset to the write channel program, the write channel program 
length, and (for QSAM) the offset to the read CCW into the DCB. 


e It saves, in the JOB, the buffer addresses associated with the empty portion 
of the channel program. These addresses are required by the next executor 
when building the refill portion of the channel program. 


e It then saves displacements to indicate to IGG0O1923 where it is to begin 
constructing the remainder of the channel programs and then passes 
control to IGG01923. 


Stage 2 Open Executor IGG01923: Executor IGGO1923 receives control 
after executor IGG0191Z has completed constructing its portion of the IOB 
and channel programs. 


The executor operates as follows: 


¢ It finishes building the channel programs started by IGGO191Z and 
completes initialization of the IOBs. 


e It then passes control to IGGO1915 if the record area indicator is on in the 
buffer control block. If the record area indicator is off, it passes control to 
IGG01912. 


Stage 2 Open Executor IGG0196K: Executor IGGO196K receives control if 
executor IGG0O191G determines that the device type is unit record. 


e This executor builds channel programs, using the storage gotten in 
IGG0191G. 


e For QSAM fixed blocked record format, it sets DCBBLKSI equal to 
DCBLRECL and turns off the blocked records bit in DCBRECFM. 


The executor specifies in the WIG table the next executor required for this 
DCB. If the DCB specifies variable-length record format, the next executor is 
IGG01915. For the remaining access conditions that cause this executor to be 
used, the next executor is IGG01910. 


The executor then searches the WTG table to pass control to another 
executor. 


Stage 2 Open Executor IGG0196L: The executor receives control from 
executor IGG0191J to finish building the IOBs assembled in IGGO0191J. 


‘The executor operates as follows: 


¢ Starting at the end of the last CCW constructed by IGGO191J, it 
completes the building of the channel programs. Appendix B, 
““BSAM/QSAM Channel Programs,” shows the channel program 
constructed by this executor and executor IGGO196L. 


Method of Operation 159 


160 OS/VS2 SAM Logic 


e For search direct it alters the channel program to be Search, TIC, Read 
Count, Read Data, Read Count instead of Search, TIC, TIC, Read Data, 
Read Count, to be positioned correctly to read the first record. This J 
channel program is the one associated with the first physical IOB. The 
channel program is restored to normal by the channel-end appendage at 
channel-end time. 


e The executor specifies in the WTG table that executor IGGO1910 (or 
IGG01915, if the DCB specifies variable-length record format) is the next 
executor required for this DCB. It then searches the WTG table to pass 
control to another executor. 


Stage 2 Open Executor IGG0196P: IGGO196P receives control after executor 
IGG0191P, if the OPEN parameter list specifies: 


Update 
and: 
Non-record-ready channel programs are to be generated 
The executor operates as follows: 
e It constructs IOBs and channel programs to empty and refill each buffer. 


e For QSAM, the executor links the channel programs so that a buffer may 
be either refilled only (by executing only the second half of the channel 
program) or emptied and refilled (by executing the channel program from 
the beginning). 


e If record area is present (which indicates that the record format is 
variable-length spanned), it specifies in the WTG table that executor 
IGG01915 is the next executor required for this DCB. Otherwise, it J 
specifies executor IGGO1912. It then searches the WTG table to pass 
control to another executor. 


Stage 2 Open Executor IGG0197N: Executor IGG0197N receives control 
from IGGO193I1 whenever the 3505 or 3525 is specified, or from IGGO197M 
whenever the same devices are specified and a buffer pool is not needed. 


The executor operates as follows: 
e It makes a test to determine if the FUNC parameter is being used. 


e If the FUNC parameter is not being used, and if the file is for Read only 
(without OMR or RCE) or Punch only, IGGO191G is specified in the 
WTG table as the next executor required for this DCB. 


e If the FUNC parameter specifies print only or associated files, IGGO197P 
is specified in the WIG table as the next executor required for this DCB. 


e If aspecified parameter combination is found to be invalid, a message to 
the programmer (WTP) is issued along with a subsequent ABEND (004). 


e If the FUNC parameter is not being used, but the file is a Read only with 
OMR or RCE, IGG0197P is specified in the WTG table as the next 
executor required for this DCB. 


e Once the validity of the FUNC parameter is established, the DCBMACRF , 
field is tested to determine if the CNTRL is valid for an input data set. If it 
is not valid, a WIP message and an ABEND macro (004) with a return 
code of 02 are issued. J 


e If the CNTRL specification is valid, a test is made to determine if the 
associated DCBs specify the same access methods. 


e If the access methods are not the same, a message is written to the 
programmer along with a subsequent ABEND (004). 


e It specifies in the WTG table that IGGO197P or IGGO191G is the next 
executor required for this DCB. It then searches the WTG table to pass 
control to another executor. 


Stage 2 Open Executor IGG0197P: IGGO197P receives control from 
IGG0197N if neither Read only (without OMR or RCE) nor Punch only is 
specified for the 3505 or 3525. 


The executor operates as follows: 


e It builds the IOB and CCWs and appends a work area to the IOB, 
according to the type of data set that is specified. 


e It specifies in the WTG table that IGGO197Q is the next executor required 
for this DCB. It then searches the WTG table to pass control to another 
executor. 


Stage 2 Open Executor IGG0197Q: IGG0197Q receives control from 
IGG0197P. 


The executor operates as follows: 


e A test is made to determine if data protection image (DPI) is specified in 
the FUNC parameter. 


e If DPI is specified, SVC 105 is issued. This builds a DCB for 
SYS1.IMAGELIB and returns its address in register one. 


e Both a BLDL and a LOAD macro are issued so that the DPI image can be 
built and the image address can be loaded in register zero. 


e The address is saved for the image deletion (after the image has been 
copied into IOB+64) by the DELETE macro. 


e If DPI is not specified, tests are made to determine which EOB and/or 
control module ID is to be entered in the DCB. (The same tests are made if 
DPI is specified.) 


e It specifies in the WTG table that IGGO1910 is the next executor required 
for this DCB. It then searches the WTG table to pass control to another 
executor. 


Stage 2 Open Executor IGG0197V: IBM 3890 Document Processor executor, 
I1GG0197V, receives control after either executor IGGO196B or IGGO1931. 
For information about the executor, see OS/VS Logic for IBM 3890 
Document Processor. 


Stage 2 Open Executor IGGO199K: Executor IGG0O199K receives control 
after executor IGGO1915. 
The executor operates as follows: 


e Using the virtual storage gotten by IGGO191S, it constructs the IOB and 
channel programs for direct-access devices with the search-direct feature 
(OPTCD=Z). 


e It issues a DMABCOND macro instruction for QSAM DCBs if buffers are 
not available. 
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e It changes the first channel program to be executed (the second physical 
IOB) to Search, TIC, Read Count, Read Data, Read Count, from Search, 
TIC, TIC, Read Data, Read Count, so that it is positioned correctly to read 
the first record. The channel program is changed back to normal by the 
channel end appendage. 


e« Completes related fields in DCB. 


e It specifies in the WTG table that IGG01916 is the next executor required 
for the DCB if variable-length records are specified. Otherwise, IGG01913 
is specified in the WTG table. 


e It then searches the WTG table to pass control to another executor. 


Stage 2 Open Executor IGG0199L: Executor IGGO199L receives control 
after executor IGGO191L if the DCB specifies: 


Create-BDAM (Write-Load) 


The executor constructs channel programs. When the DCB specifies 
RECFM=VS and BFTEK=R, the routine constructs a segment work area for 
spanned record processing and creates an IRB for the asynchronous exit 
routine, which executes writing of the successive segments. It then searches 
the WTG table to pass control to another executor. If the WTG table has no 
other entries, the executor returns control to the Open routine. 


With the rotational position sensing (RPS) feature, more virtual storage is 
needed for the record-ready channel programs. This executor computes the 
extra bytes needed for the record-ready channel programs and issues a 
GETMAIN. The sector bytes are placed at the end of all the IOBs and 
channel programs. The last doubleword of the GETMAIN area is used for 
sector manipulation. The first byte is used by Set-sector and by Read-sector. 
The second byte is used as a byte of zero on which to issue a Set-sector 
command in order to position at the beginning of the track. 


Note: A user may provide a segment work area by setting a bit in the 
DCBMACRF field and placing the address of that area in the DCBEOB field. 
In this case, this routine will not construct the segment work area. 


Stage 2 Open Executor IGG01990: IGG01990 receives control from 
executor IGG0191D if the Open parameter list specifies: 


Input 
and the DCB specifies: 

OPTCD = Z (search-direct) 
The executor operates as follows: 


e Using the core gotten by IGGO191D, the executor constructs the IOBs and 
channel programs required when search direct is specified. The format of 
the channel programs constructed by this executor are shown in “Appendix 
B: BSAM/QSAM Channel Programs.”’ 


e It changes the channel program to Search, TIC, Read Count, Read Data, 
Read Count, from Search, TIC, TIC, Read Data, Read Count, so that it is 
positioned correctly to read the first record. (This channel program is the | 
one associated with the second physical IOB.) The channel program is 
restored to normal by the channel end appendage. 


e It issues a DMABCOND macro instruction for QSAM DCBs if buffers are 
not available. 


Stage 3 Open Executors 


e If format-F or -U records are specified, 1GG0O1910 required for this DCB. 
Otherwise, (for format-V) executor IGGO1915 is specified in the WTG 
table as the next executor required for this DCB. 


e It then searches the WTG table to pass control to another executor. 


Stage 3 executors load the modules needed to perform the processing 
described by the DCB. If QSAM is used, and an input data set is to be 
processed, a second stage 3 executor also primes the buffers. 


Some of the modules to be loaded are identified by stage 2 executors having 
set codes in DCBCNTRL. The four bytes of DCBCNTRL identify these 
types of modules: 


Byte Module Type 

+0 EOB (QSAM) or EOB for read (BSAM) 
+1 EOB for write (BSAM) 

+2 NOTE/POINT or CNTRL 

+3 NOTE/POINT or CNTRL 


Note that the first byte is DCBEROPT and is saved at DXCCW6 during 
stage 1 and restored by IGG01911. The codes that can be in the four bytes 
and the modules they can identify, depending on which stage 3 executor does 
the loading, are: 


00 No module to load 

01 IGG019CD, IGG019CV End-of-block 

02 IGG019CC, IGGO19CW End-of-block 

03 IGG019CE, IGGO19CX End-of-block 

04 IGGO019CF, IGGO19CY End-of-block 

05 IGGO019BC, IGGO19BK NOTE/POINT, DASD 

06 IGGO019BD, IGGO19BL NOTE/POINT, tape 

07 IGG019CA, IGG019BC CNTRL, card reader or 
NOTE/POINT, DASD 

08 IGG019CB, IGG019CC CNTRL, printer or End-of-block 

09 IGGOI9BE, IGG019C2 CNTRL, tape or EOB, track overflow 

0A IGGO19AV DUMMY or no-op for various 
functions 

OB IGGOI19CT, IGGO19TD End-of-block, error or user-totaling 

1 @ IGGOI19TD, IGG019TC End-of-block, user-totaling 

0D IGGOI19TC, IGGO19TV End-of-block, user-totaling 

OE IGGOI9TV, IGGO19TW End-of-block, user-totaling 

OF IGG019TW, IGG019T2 End-of-block, user-totaling 

10 IGG019T2, IGG0O19CT End-of-block, user-totaling or error 


In many of the above pairs the first one is for normal scheduing and the 
second one is for chained scheduling. 


The stage 3 Open executors load in the fixed standard end of extent modules 
and the format-U channel end module when the rotational position sensing 
(RPS) feature is used. 


Figure 26 lists the access conditions that cause the different stage 3 executors 
to be loaded and to gain control. The executors are described in the text that 
follows in a sequence identical to the list under ““Executors”’ in Figure 26. 
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In this table an X a column represents a condition that must be satisfied 

before the executor is selected. A blank in the upper portion of the table 

indicates that either the condition is not required for selection or not 

examined at this time. The table should be used in conjunction with the flow 2) 
of control informatioa in Diagram E, SAM Flow of Control for Open 
Executors. 


Stage 3 Open Executor IGG01910: IGG01910 receives control after executor 
1GG0191D, 1GG01910, IGG0197Q, IGG01990 or IGG0196L. It also 
receives control after executor IGGO191G unless the DCB specifies paper 
tape. 


This executor operates as follows: 

e For QSAM it identifies, loads, and puts the address into the DCB of: 
A Get or Put routine 
A synchronizing routine 


e If BSAM is specified it identifies, loads, and places the addresses in the 
DCB of the Read/Write routine and the Check routine. 


e For 3211 printers it issues a CIRB macro instruction to create an IRB for 
an error retry module; it loads an abnormal end appendage and an error 
retry module. 


e For user-totaling it loads the EOB routine and places its address in the 
DCB. 


e It enters into the DEBSUBDD field of the DEB the identification of each 
routine loaded. 


e It specifies executor IGGO1917 in the WTG table as the next executor to ' 
receive control for this DCB. J 


Stage 3 Open Executor IGG01911: Executor IGG01911 is entered from 
executors IGG0191C, for dummy data sets; IGGO191N, IGGO191V, 
1GG0196A, IGG0197U, and IGGO197F for EXCP data sets; and 
1GG01917, IGG01918, IGG01926, IGG01993, and IGG01994 for all SAM, 
PAM, and BDAM CREATE data sets. 


Get or Put 
This executor operates as follows: 


e It issues the IECRES macro instruction to cause the user’s copy of the 
DCB to be updated to reflect the changes and additions made by the Open 
executors to the protected copy of the DCB. 


e It issues a DELETE macro instruction for the message CSECT if it was 
loaded by Stage 1 Open executors. 


e It sets an audit trail bit for the SAM/PAM/DAM force close executor to 
indicate the data set can be closed by the normal close executor string 
during force close processing. 
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oe, 


Access Method Options Selections 


Paper Tape xX 

Update ».4 

Chained Scheduling Xx 

Track Overflow X X 
None of the preceding X 


*, DATA, or SYSOUT X 
specified on DD statement 


Variable-length 
Record Format X XX 


Spanned Records X 
Dummy Data Set X 


Execators 


1GG01910 10 

1GG01911 11 11 #11 11 11 11 11 11 11 
1GG01912 12 12 

1GG01913 13 13 

1GG01915 15 15 
1GG01916 16 
1GG01917 17 

1GG01918 18 18 

1GG01919 19 19 19 
1GG01926 26 26 26 
IGG0198L 8L 
1GG01991 91 

1GG01992 92 
1GG01993 93 

1GG01994 94 
Figure 26. Open Executor Selector—Stage 3 


e It sets the request type as follows: 


Processing 
Required Type I Type I Type Ill 


ERP Processing 
CE Appendage 
CE Interrupt xX 
SIO Appendage X 
EOE Appendage xX 


ma 


e For data sets other than QSAM, it returns to common open. 
e It completes any remaining DCB fields. 
e It completes the IOBs. 


e It puts the buffer address in the Read or Write CCWs for unit record and 
magnetic tape data sets. If an invalid buffer address is found it issues a 
DMABCOND macro instruction. 
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e For QSAM input: 


Chained Scheduling: It chains all channel programs for Move, Data, and 
Substitute modes. For Locate mode it chains together all but one. It then 
issues an EXCP macro instruction against the main IOB to prime the 
buffers. 


Normal Scheduling: It issues a GETMAIN macro instruction from subpool 
230 in the user’s key for a register save area for the access method 
routines. It saves the address returned from GETMAIN in the second word 
of the audit trail for force close. It then passes control to the EOB routine 
(BALR if the key is less than 8, SYNCH if the key is greater than 7) to 
prime the user’s buffers (for all but one IOB if Locate mode, all buffers for 
other processing modes). Before exiting, it frees the register save area. 


e For output it sets a flag, which is used to identify the first entry, into the 
Put routine. 


e It searches the WTG table to pass control to another executor. If the WIG 
table has no other entries, the executor returns control to the Open routine. 


Stage 3 Open Executor IGG01912: Executor IGG01912 is entered after 
executor IGG01923, IGG0196P, and IGGO191G if the Open parameter is: 


Update 
or if the DCB specifies: 
Paper tape 
The executor operates as follows: 


e It identifies and loads all the appendages required and places their 
addresses in the appendage vector table. 


e If rotational position sensing (RPS) channel programs are constructed and 
the record format is fixed, the format-F channel-end appendage will always 
be loaded. For RPS with format-U without track overflow, a format-U 
channel-end appendage is loaded. 


e It issues a CIRB macro to build an IRB for UPDATE with track overflow. 
e It loads the device-dependent routines. 


e It enters the address of a paper tape conversion routine into the DCB, and 
the address of the paper tape appendage into the appendage vector table. 


e It issues a DMABCOND macro instruction if paper tape and unlike 
attributes are specified. 


e It specifies executor IGGO1918 in the WTG table as the executor to 
receive control next for this DCB. 


Stage 3 Open Executor IGG01913: Executor IGG01913 receives control 
after executors IGGO191H, IGGO0191K, IGG0191Q, IGG0191X, 
IGG0191W, IGG0199K, and IGG0191R if the DCB specifies: 


Chained channel-program scheduling, or track overflow. 
The executor operates as follows: ‘ 


e For 3211 printers it issues a CIRB macro instruction to create an IRB for 
an error retry module; it loads an abnormal end appendage and an error 
retry module. 


J 


e If QSAM is specified, it identifies, loads, and places the address into the 
DCB of: 


A Get or a Put routine 
A synchronizing routine 


e If BSAM is specified, it identifies, loads, and places the address into the 
DCB of: 


A Read or Write routine 
A Check routine 


e It specifies in the WIG table that Open executor IGGO01919 is to receive 
control next for this DCB. 


Stage 3 Open Executor IGG01915: Executor IGG01915 receives control 
after executors IGG0191D, I1GG01910, IGG0191G, IGGO196K, 
IGG0196L, IGG0197Q, and IGGO1990, if the DCB specifies: 


Variable-length record format 


Executor IGG0O1915 receives control from executor IGGO196P or 
1GG019123, if the DCB specifies: 


Variable-length spanned record format 
The executor operates as follows: 


e If QSAM is specified, the executor identifies and loads a Get or Put routine 
and a synchronizing routine. 


e If BSAM is specified, the executor identifies and loads a Read or Write 
routine, a Check routine, and a routine to service the NOTE/POINT 
macro instruction if it is specified. 


e It issues a DMABCOND macro instruction if LRECL=X is specified and 
the processing mode is not Locate. 


e It places the identifiers (IDs) of the routine loaded into the DEB 
subroutine ID field and the addresses of the routines into the DCB. 


e For a 3211 printer: 


An abnormal-end appendage is loaded and its address is placed in the 
appendage vector table. 


An asynchronous error routine is loaded. The IRB used for scheduling 
this routine is built and the IRB address placed in the DEB. 


e It specifies in the WTG table that executor IGGO1991 is the next executor 
required for this DCB. 


e It searches the WTG table to determine to which executor it should pass 
control. 


Stage 3 Open Executor IGG01916: Executor IGGO1916 receives control 
after executors IGGO191H, IGGO191K, IGGO01910, IGGO191Q, 
IGG0191W, IGG0199K, and IGGO191R if the DCB specifies: 


Variable-length record format 


Track overflow 
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The executor operates as follows: 


If QSAM is specified, the executor identifies and loads a Get or Put routine 
and a synchronizing routine. 


If BSAM is specified, the executor identifies and loads a Read or Write 
routine, a Check routine, and a routine to service the NOTE/POINT 
macro instruction if it is specified. 

It issues a DMABCOND macro instruction if LRECL=X is specified and 
the processing mode is not Locate. 


It places the IDs of the routine, loaded into the DEB subroutine ID field 
and the addresses of the routines into the DCB. 


It specifies in the WTG table that executor IGG01992 is the next executor 
required for this DCB. 


It searches the WTG table to determine to which executor it should pass 
control. 


Stage 3 Open Executor IGG01917: Executor IGG01917 is entered after 
executor IGG01910. 


The executor operates as follows: 


It identifies and loads all the appendages required and places their 
addresses into the appendage vector table. 


If rotational position sensing (RPS) channel programs are constructed and 
the record format is fixed, the format-F channel-end appendage is always 
loaded. It loads in the fixed standard end-of-extent module IGGO19C4 
where the fixed standard record format is used. 


For RPS with format-U without track-overflow, a format-U channel-end 
appendage is loaded. 


It loads the end-of-block routine identified by a stage 2 executor and 
places its address into the DCB. 


If search-direct has been requested (OPTCD=Z in the DCB), the executor 
loads in the necessary appendages. 


It enters into the DEBSUBIDD field of the DEB the identification of each 
routine loaded. 


It specifies in the WTG table that executor IGGO1911 is the next executor 
required for this DCB. It then searches the WTG table to pass control to 
another executor. 


Stage 3 Open Executor IGG01918: Executor IGGO01918 is entered after 
executor IGGO1912. It is loaded and receives control when another executor 
finds its identification in the WTG table. 


The executor operates as follows: 


It receives control after it is loaded. 


It loads the end-of-block routine identified by a stage 2 executor and 
places its address into the DCB. : 


It enters into the DEBSUBDD field of the DEB the identification of each 
routine loaded. 


It specifies in the WTG table that executor IGGO01911 is the next executor 
required for this DCB. It then searches the WTG table to pass control to 
another executor. 


Stage 3 Open Executor IGG01919: Executor IGG01919 is entered after 
I1GG01913. 


The executor operates as follows: 


It identifies and loads all the appendages required and places their 
addresses into the appendage vector table. 


If rotational position sensing (RPS) channel programs are constructed and 
the record format is fixed, the format-F channel-end appendage is always 
loaded. For RPS with format-U without track overflow, a format-U 
channel-end appendage is loaded. 


For track overflow it issues a CIRB macro instruction to create an IRB for 
an asychronous error processing routine. 


If search-direct has been requested (OPTCD=Z in the DCB), the executor 
loads in the necessary appendages. 


It enters into the DEBSUBID field of the DEB the identification of each 
routine loaded. 


It specifies in the WTG table that executor IGG01926 is the next executor 
required for this DCB. It then searches the WTG table to pass control to 
another executor. 


Stage 3 Open Executor IGG01926: Executor IGG01926 is loaded and 
receives control after executor IGGO1919. 


The executor operates as follows: 


It receives control after it is loaded. 


It loads the end-of-block routine identified by a stage 2 executor and 
places its address into the DCB. 


It enters into the DEBSUBID field of the DEB the identification of each 
routine loaded. 


It specifies in the WTG table that executor IGGO01911 is the next executor 
required for this DCB. It then searches the WTG table to pass control to 
another executor. 


Stage 3 Open Executor IGG0198L (SYSIN/SYSOUT): IGGO198L receives 
control after the SAM-SI Open executor IGG0199W. 


The executor operates as follows: 


It determines which processing modules are required to process the SYSIN 
or SYSOUT data set. 


If BSAM is specified in the DCBMACRF field of the DCB, the BSAM 
processing module IGGO19DK is loaded into virtual storage. If input is 
also specified, module IGGO19BB is also loaded to process the CHECK 
macro instruction. Otherwise, IGGO19DK handles the CHECK macro 
instruction also. 


If QSAM is specified, the QSAM CI processing module IGGO19D]J is 
loaded into virtual storage. 
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e If input is specified, module IGG019AQ is also loaded to process an 
end-of-data condition. 


e It sets the CI bit in the DCBCIND1 field to indicate that this DCB is 
processed by the SAM-SI routines. 


e It marks the current entry in the WTG table to indicate that no further 
executor processing is required for this DCB. 


e It refreshes the processing program’s DCB from the copy maintained by 
the open routines. 


e It then searches the WTG table to determine whether to give control to 
another executor, or branch back to itself. If there are no other entries in 
the WTG table, the executor returns control to the Open routines. 


Stage 3 Open Executor IGG01991: Executor IGG01991 receives control 
after, and as a continuation of, executor IGG01915. It completes the loading 
of subroutines for a DCB which specifies: 


Variable-length or record format-D 
The executor operates as follows: 


e It identifies and loads all the appendages required and places their 
addresses into the appendage vector table. 


e If rotational position sensing (RPS) channel programs are constructed and 
the record format is variable, the format-V channel-end appendage is 
always loaded. It loads in the variable standard end-of-extent module, 
IGG019C4, where the variable record format is used. 


e For RPS with format-U without track overflow, a format-U channel-end 
appendage is loaded. 


e For track overflow, it issues a CIRB macro instruction to create an IRB for 
an asychronous error routine. 


e If search direct has been requested (OPTCD=Z in the DCB), the executor 
loads in the necessary appendages. 


e It enters the [IDs of the routines loaded into the DEB subroutine ID field. 


e The executor specifies in the WTG table that IGG01993 is the next 
executor required for this DCB. It then searches the WTG table to 
determine the next executor to receive control. 


Stage 3 Open Executor IGG01992: Executor IGGO01992 receives control 
after, and is a continuation of, executor IGG01916. The executor loads 
subroutines for a DCB which specifies: 


Variable-length record format 
Track overflow 
The executor operates as follows: 


¢ It identifies and loads all the appendages required and places their 
addresses into the appendage vector table. 


e If rotational position sensing (RPS) channel programs are constructed and 
the record format is variable, the format-V channel end appendage is 
always loaded. It loads in the variable standard end-of-extent module, 
IGG019C4, where the variable-récord format is used. 


e For RPS with format-U without track overflow, a format U channel end 
appendage is loaded. 


e If search-direct has been requested (OPTCD=Z in the DCB), the executor 
loads in the necessary appendages. 


e For track overflow, it issues a CIRB macro instruction to create an IRB for 
an asynchronous error routine. 


e It enters the [IDs of the routines loaded into the DEB subroutine ID field. 


e It specifies in the WIG table that executor IGGO1994 is the next executor 
required for this DCB. It then searches the WTG table to determine the 
next executor to receive control. If there are no other entries in the WIG 
table, the executor returns control to the Open routine. 


Stage 3 Open Executor IGG01993: Executor IGG01993 is a continuation of 
executor IGG01991. It completes the process of loading subroutines for a 
DCB that specifies: 


Variable-length record format 
The executor operates as follows: 


e It identifies and loads all of the appendages required and places their 
addresses into the appendage vector table. 


e If rotational position sensing (RPS) channel programs are constructed and 
the record format is variable, the format-V channel-end appendage is 
always loaded. It loads in the variable standard end-of-extent module, 
IGG019C4, where the variable-record format is used. 


e It loads the end-of-block routine identified by the stage 2 executor and 
places its address into the DCB. 


e If search-direct has been requested (OPTCD=Z in the DCB), the executor 
loads in the necessary appendages. 


e It enters the IDs of the routines loaded into the DEB subroutine ID field. 


e It specifies in the WTG table that executor IGG01911 is the next executor 
required for this DCB. It then searches the WIG table to determine the 
next executor to receive control. 


Stage 3 Open Executor IGG01994; Executor IGG01994 is loaded and 
receives control from IGG01992. It completes the process of loading 
subroutines for a DCB that specifies: 


Variable-length record format 
Track overflow 
The executor operates as follows: 


e It loads the end-of-block routine identified by the stage 2 executor and 
places its address into the DCB. 


e It enters the IDs of the routines loaded into the DEB subroutine ID field. 


“e It specifies in the WTG table that executor IGGO1911 is the next executor 
required for this DCB. It then searches the WTG table to determine the 
next executor to receive control. 
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Figure 27 shows the conditions that cause the Close executors to gain control. 
IGG0201A or IGGO201Z receives control if one of the sequential access 
methods is used. Control goes to IGGO201A if the device type is tape or unit 
record. Executor IGG0201X is an extension of IGGO201A. If the device type 
is direct-access storage, control is passed to IGG0201Z. Executor IGG0201B 
receives control after executors IGGO201A or IGG0201Z if QSAM was used 
with an output data set and a channel program encountered an error condition 
while one of the other Close executors had CPU control. Executor 
IGG0201P receives control from IGGO201A whenever the 3525 or the 3505 
with OMR or RCE is specified. Executor IGGO201R is an extension of 
IGG0201P. Executor IGGO201 W receives control whenever a SYSIN or 
SYSOUT data set is being processed. 


Control returns to the Close routine of I/O support when Close executor 
processing is completed. 


Access Method Options Selections 
Tape orunitrecord _ X X X 
Direct-access storage xX xX 


Permanent error or end- X xX 
of-volume condition when 

using QSAM for output 

(tape, DA only) 


*, DATA, or SYSOUT X 
specified on DD 
statement 


3505 (OMR/RCE) or 3525 X 
Executors 

IGGO201A 1A 1A 1A 
IGG0201B 1B 1B 
IGG0201P 1P 
IGG0201R IR 
IGG0201W 1W 
IGG0201X 1X = =1X 

IGG0201Y 1Y LY 
IGG0201Z IZ 12 
Figure 27. Close Executor Selector 


Close Executor IGG0201A: IGGO201A receives control from the Close 
routine of I/O support if the DCBDSORG field specifies a value of PS and if 
the device type is tape or unit record. 


The executor operates as follows: 
e It turns on the Close-in-process bit in the DCB. 


e If the 3525 or the 3505 with either OMR or RCE is specified, the executor 
specifies in the WTG table that executor IGG0201P is required for this 
DCB. 7 


e For QSAM output on 2520 or 2540 devices, it issues EXCP macro 
instructions to punch two blank cards to allow the ERPs to gain control 
when an error occurred on either of the two last cards punched. 


> 


e For QSAM input or BSAM data sets, a PURGE macro instruction is 
issued. 


e If the Open parameter is output and the DCB specifies QSAM, the 
executor issues a TRUNC and, if the processing mode is Locate, a PUT 
macro instruction to cause scheduling of the last buffer. On return of 
control, the executor awaits execution of the last channel program. The 
TRUNC and PUT routines are entered via the SYNCH SVC if the user’s 
key is greater than seven. 


e If all channel programs were executed without encountering either an 
end-of-volume condition or a permanent error, the executor continues 
processing. 


e For magnetic tape devices, if any of the preceding channel programs 
encountered an end-of-volume condition, the executor specifies in the 
WTG table that executor IGGO201B is required for this DCB. Depending 
on the remaining entries in the WTG table, it then either processes another 
DCB, or passes control to executor IGG0201B. 


e For printers, it issues EXCP and WAIT macro instructions to clear the 
print line buffer. 


e It sets an audit trail bit to indicate that a PURGE has been done. These 
bits have meaning only during force close processing. The audit trail is 
passed to a user’s STAE routine. 


e It sets up the WTG table to pass control to IGGO201X. 


e It then searches the WTG table to process another DCB or pass control to 
another executor. 


Close Executor IGG0201B (Error Processing): IGG0201B receives control 
after either executor IGGO201A or IGG0201Z if one of the latter finds that a 
channel program for an output data set using QSAM encountered a 
permanent error or an end-of-volume condition. 


The executor operates as follows: 


e It determines whether a channel program encountered a permanent error 
or an end-of-volume condition. 


e If a permanent error occurs for a direct-access device, it enters the track 
balance routine to get the bad record erased. 


e If achannel program encountered an end-of-volume condition, the 
executor finds the IOB associated with that channel program and issues an 
EOV. When control returns, the executor performs its remaining 
processing, unless one of the channel programs encountered a permanent 
error or another end-of-volume condition. In either of those cases, it 
resumes processing as it did when it first received control. 


e If the DCB specifies either a DCBDSORG field value of PO or POU with a 
DD statement of the form (MEMBERNAME) the executor issues a 
STOW macro instruction. On completion of the Stow routine, the executor 
tests for errors, such as insufficient space in the directory. For any type 
of error, the executor issues an DMABCOND macro instruction. 


e The executor specifies in the WTG table that the next executor needed for 
this DCB is either IGG0201Y for direct-access devices or IGGO201X for 
all other devices. 


Method of Operation 173 


174 OS/VS2 SAM Logic 


e It then searches the WTG table to either process another DCB or to pass 
control to the next module. 


Close Executor IGG0201P: This module receives control from IGGO201A ) 
whenever: , 


The 3525 is specified or the 3505 is specified with either OMR OR RCE. 
The module operates as follows: 
e It turns on the Close-in-process bit in the DCB. 


e Tests are made to determine if either OMR or RCE is being used with the 
3505. 


e If either is being used, the module issues a Feed and Stacker-select 
command (with the OMR/RCE flag bit off) to return the device to normal 
punched mode. 


e If either an associated data set or PRINT is being used with the 3525, the 
following apply: 


File Type Feed Caused by Close of 

Print Print File 

Read/Print Read File* 

Read/Punch/Print Read File** 

Read/Punch Read File** 

Punch/Print Punch File 

Punch/Interpret Punch File 

Read Read File 

Punch Punch File J 
* A feed is executed if an end-of-file is caused by the hardware; “ 


a feed is not executed if it is caused by a data delimiter card. 


** Punching or printing delimiter cards is not allowed for these 
file types since the Close routine always issues a feed command. 


e If achannel program for an output (QSAM) data set encountered a 
permanent error, IGGO201B is specified in the WTG table as the next 
executor required for this DCB. Otherwise, executor IGGO201R is 
specified in the WTG table. 


It then searches the WTG table to pass control to another executor. 
Close Executor IGG0201R: This module receives control from IGGO201P. 
The module operates as follows: 

e It frees buffer space from the buffer pool. 
e It also frees IOB and ICB space. 
e It clears BSAM and QSAM vectors in the DCB. 


e It specifies in the WTG table that executor IGG0201B is the next executor 
required for this DCB. It then searches the WTG table to pass control to 
another executor. - 


Close Executor IGG0201W (SYSIN/SYSOUT): Executor IGG0201W 
receives control if the Close routine (see Diagram L) determines that the 
SAM-SI Close executor is required to process a DCB for a SYSIN or 
SYSOUT data set. 


The executor operates as follows: 


It constructs a Close parameter list for the ACB built by the SAM-SI Open 
executor for this DCB. 


If QSAM PUT locate mode is specified, a final PUT macro instruction is 
issued to clear the I/O area. 


It deletes the BSAM (IGG019DK and IGGO19BB) or QSAM (IGGO019DJ 
and IGG019AQ) processing modules loaded by the Open executor, 
IGG0198L. The processing modules that handle CI and SAM requests 
(IGGO019BB and IGGO19AQ) are not deleted if concatenation is in 
process. 


It issues a CLOSE macro instruction for the ACB. 


It issues a FREEMAIN macro instruction for the area occupied by the JES 
compatibility interface control block (CICB) and the record area obtained 
for collecting BSAM variable spanned segments. 


It searches the WTG table to pass control to another executor. 


Close Executor IGG0201X: Executor IGGO201X is a continuation of 
executor IGG0O201A and receives control from that executor or from 
IGG0201B if an EOV condition arose during processing in IGGO201A. 


The executor operates as follows: 


For QSAM 
It frees the record area if it was gotten by the open executors. 


It frees the buffers gotten by the Open executors if concatenation of 
unlike attributes was specified. 


It returns the buffer to the buffer pool for all other conditions. 


The executor computes the amount of space occupied by the channel 
programs, IOBs (and ICBs, if chained scheduling is used), and returns that 
space to the supervisor by using a FREEMAIN macro instruction. 


It frees the FCR table for the IBM 3886 Optical Character Reader. 


It sets audit trail bits to indicate what processing was done. These bits have 
meaning only during force close. The audit trail is passed to a user’s STAE 
routine. 


The executor specifies in the WTG table that Close executor processing is 
completed for this DCB. Depending on the remaining entries in the WIG 
table, it then processes another DCB, returns control to the Close routines, 
or if Force Close is in control, returns to the SAM Force Close executor, 
IGG020T1, with a return code of 0 in register 15. 
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Close Executor IGG0201Y: IGG0201Y receives control from executor 
1GG0201Z or from IGG0201B if an EOV or permanent error was detected 
by IGG0201Z.. 


The executor operates as follows: 


When record-ready channel programs are constructed, a GETMAIN macro 
instruction is issued for more bytes during Open IOB construction. In the 
Close routine, when the [OB and channel program areas are freed, the 
number of additional bytes is computed and added to the byte count before 
issuing the FREEMAIN macro instruction. 


It frees the segment work area for a DCB that specifies BFTEK=R, 
RECFM=VS, and MACRF=WL. 


It returns buffers to the buffer pool if they were gotten by Open executors. 
It frees the buffers if concatenation of unlike attributes was specified. 


It frees the record area obtained by an Open operation when a DCB 
specifies BFTEK=A, spanned record, and QSAM locate mode. 


The executor specifies in the WTG table that processing for this DCB is 
completed. Depending on the remaining entries in the WTG table, it then 
processes another DCB, returns control to the common close routines or, if 
Force Close is in control, returns to the SAM Force Close executor, 
IGG020T1, with a return code of 0 in register 15. 


Close Executor IGG0201Z: Executor IGG0201Z receives control from the 
Close routine of O/C/EOV if the DCBDSORG field specifies a value of PS 
or PO and if device type is direct-access storage. 


The executor operates as follows: 


If the Open parameter is Output and the DCB specifies QSAM, the 
executor issues a TRUNC and, if in Locate processing mode, a PUT macro 
instruction to cause scheduling of the last buffer. On return of control, the 
executor awaits execution of the last channel program. 


For QSAM input or BSAM data sets, a PURGE macro instruction is 
issued. 


If all channel programs were executed without encountering either an 
end-of-volume condition or a permanent error, the executor continues 
processing. 


If any of the preceding channel programs encountered either a permanent 
error or an end-of-volume condition, the executor specifies in the WIG 
table that executor IGG0201B is required for this DCB. Depending on the 
remaining entries in the WTG table, it then either processes another DCB, 
or passes control to executor IGG0201B. 


If Output and either a DCBDSORG field value of PO, or WRITE or PUT 
with a DD statement of the form (MEMBERNAME) are specified, the 
executor issues a STOW macro instruction. On completion of the Stow 
routine, the executor tests for I/O errors and for logical errors, such as 
insufficient space in the directory. For either type of error, the executor 
issues a DMABCOND macro instruction. . 


The executor specifies in the WTG table that module IGGO0201Y is the 
next executor for this DCB. Depending on the remaining entries in the 
WTG table, it then either processes another DCB or transfers control to 
the next module. 


2 
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Force Close Executors 


SAM-SI Force Close Executor IGGO20FC: Executor IGGO20FC receives 
control from the O/C/EOV Force Close Executor module, IFGORROB, 
when it determines that DCBs under JES control must be closed. The 
executor frees resources acquired for opened or partially opened SYSIN and 
SYSOUT DCBs that are being forced to a closed status. It provides as much 
of the normal close functions as possible in restoring the DCB to its pre-open 
condition. 


The executor locates the CICB and performs the following operations: 

e Issues a CLOSE macro instruction for the ACB contained in the CICB. 
« Frees the record area for variable-length spanned records. 

e Deletes any processing modules loaded for this DCB. 

e Frees the storage obtained for the CICB. 

e Returns control to the calling routine. 


If the failure occurs during open processing and the CICB was not created, no 
further processing is required and control is returned to the calling routine, 
with a return code of 0. 


If the CICB cannot be located because the error occurred during other than 
open processing, control is returned to the calling routine, with a return code 
of 4. 


Force Close Executor IGG020T1: Executor IGGO20T1 receives control from 
IFGORROB during force close processing for SAM, PAM, or DAM data sets. 
The primary function of the Force Close Executor is to free resources 
associated with the DCB. 


The executor operates as follows: 


If the error occurs during open processing and the user’s copy of the DCB has 
not been updated by the open executors, the following actions are taken: 


For SAM or PAM 
e It frees a logical record area if obtained by Open executors. 


e It frees the buffer pool if the users buffers were gotten by the Open 
executors and concatenation of unlike attributes was specified; otherwise, 
it returns the buffers to the buffer pool. 


e It frees the IOBs and ICBs and their channel programs if they were gotten 
by the Open executors. 


e It frees the segment work area if it was gotten by Open executors. 

e It deletes the message CSECT if it was loaded by the Open executors. 
e It deletes any UCS and FCB images loaded. 

e It issues a CLOSE IMGLIB SVC for SYS1.IMAGELIB. 

For BDAM 

e It frees the buffers. 

e It frees the unscheduled list if it exists. 

e It frees the segment work area if it was gotten by the Open executors. 


e It frees the READX list if it was gotten by the Open executors. 
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The Force Close Executor then returns to common close with a return code 
of zero in register 15. 


If the error occurs during open processing and the user’s DCB was refreshed 
from the protected DCB, the Force Close Executor sets up a retry address at 
RRXRETRY and attempts to execute the normal close executor string. It also 
issues a FREEMAIN macro instruction for the register save area gotten by 
IGG01911 when priming QSAM input buffers. 


e If normal close processing is successful the close executor, upon detecting a 
force close entry, returns to this Force Close executor with a return code 
of zero in register 15. 


e If normal close processing is not successful, the second level Recovery 
routine of O/C/EOV gives control to the address specified in 
RRXRETRY. The Force Close executor then moves the audit trails to the 
Component Recovery Status Area (CRSA) with a return code of eight in 
register 15. 


If the error occurs during other than open processing, the Force Close 
Executor returns to the common close recovery routine with a return code of 
eight in register 15. 


Buffer-Pool Management 
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Buffer-pool management routines form virtual storage space into buffers, and 
they return buffers that are no longer needed. Figure 28 lists the buffer-pool 
management routines. 


Type Module Name Function 

GETPOOL IECQBFGI1 This routine obtains virtual storage and 
forms a buffer pool. 

BUILD IECBBFB!1 This routine forms a buffer pool in virtual 
storage supplied by the processing program. 

GETBUF (Macro Expansion) This routine provides buffers from the buffer 
chain. 

FREEBUF (Macro Expansion) This routine returns buffers to the buffer 
pool. 

FREEPOOL (Macro Expansion) This routine returns virtual storage 
previously used for a buffer pool. 

BUILDRCD IGG019B0 This routine allows a pointer to a record area 


to be incorporated in a buffer pool in virtual 
storage supplied by the processing program. 


Figure 28. Buffer-Pool Management Routines 


GETPOOL Module IECQBFG1: Module IECQBFG1 obtains virtual-storage 
space and forms it into buffers. It is loaded at execution time by a LINK 
macro instruction. 


The module operates as follows: 


e It rounds the buffer length to the next higher doubleword multiple if the - 
specified length is not such a multiple. P 


e It determines buffer alignment from the DCBBFALN field value in the 
DCB. 


e It computes the number of bytes required and issues a GETMAIN macro 
instruction. 


> 


e It constructs a buffer-pool control block in the first eight bytes of storage 
obtained. 


e If doubleword (not fullword) alignment is specified in the DCBBFALN 
field in the DCB, the module starts the first buffer at the byte immediately 
following the BUFCB. 


e If fullword (not doubleword) alignment is specified in the DCBBFALN 
field, the module skips one word after the buffer-pool control block before 
starting the first buffer. 


e It chains the first buffer to the buffer-pool control block and determines 
the start of the next buffer by adding the rounded buffer length value to 
the address of the first buffer. The module chains the next buffer to the 
preceding buffer and continues until all the buffers have been chained. 


e It returns control to the processing program. Figure 29 illustrates the 
buffer-pool control block (BUFCB) that describes the buffer pool. Figure 
30 illustrates the buffer-pool structures formed by the GETPOOL module. 


BUFAD BUFNO BUFL 
Address of Number of 
BUFCB First Available Buffer Buffers Requested Each Buffer 
Byte 0 4 6 8 


Figure 29. Buffer-Pool Control Block 


Doubleword Fullword (Not Doubleword) 
Buffer Alignment Specified Buffer Alignment Specified 


BUFCE 
are CUE 


—o—— 2 Words ———_> 


Figure 30. GETPOOL Buffer-Poo! Structures 


BUILD Module IECBBFB1: Module IECBBFB1 forms virtual storage space 
supplied by the processing program into buffers. It is loaded at execution time 
by a LINK macro instruction. 


The module operates as follows: 


e It rounds the buffer length to the next higher fullword multiple if the 
specified length is not such a multiple. 


e It constructs a buffer-pool control block in the first 8 bytes of the 
virtual-storage space provided by the processing program. 
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e It starts the first buffer at the byte immediately following the buffer-pool 
control block. 


the start of the next buffer by adding the rounded buffer-length value to 
the address of the first buffer. The module chains the next buffer to the 
preceding buffer, and continues until all the buffers are chained. 


e It returns control to the processing program. 


e It chains the first buffer to the buffer pool control block and determines 2 


Figure 31 lists for each possible combination of space alignment and buffer 
length parity the illustration that shows the structure of the resulting buffer 
chain or pool. Figure 29 illustrates the buffer pool control block (BUFCB), 
Figure 32 illustrates the various buffer alignments that the Build module 
forms. 


Parity of number of words in 

Alignment of first byte of buffer length after rounding up 
space passed in BUILD length parameter of BUILD macro Buffer pool 
macro instruction instruction structure 
Doubleword Even A 

Odd B 
Fullword Even C 
(Not doubleword) Odd D 


Figure 31. Build Buffer-Structuring Table 


GETBUF Macro Expansion: The purpose of this coding is to provide the next 
buffer from the buffer pool. The macro expansion produces inline code that 
presents the address of the next buffer to the processing program and updates 
the buffer-pool control block to point at the following buffer. 


FREEBUF Macro Expansion: The purpose of this coding is to return a buffer 2 
to the buffer chain. The macro expansion produces inline code that stores the 

address presently in the buffer-pool control block in the first word of the 

buffer being returned, and then stores the address of that buffer in the 

buffer-pool control block. 


B Cc 
f-_Bu FCB A 


Figure 32. Build Buffer-Pool Structure 2 
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FREEPOOL Macro Expansion: The purpose of this coding is to return the 
space previously allotted to the buffer chain to avaiable virtual storage. The 
macro expansion produces inline code that computes the total number of 
bytes to be returned, issues a FREEMAIN macro instruction, and sets the 
DCBBUFCB field in the DCB to show that no buffer pool is associated with 
that DCB. 


BUILDRCD Routine IGGO019BO0: This routine forms virtual-storage space 
supplied by the processing program into buffers and links the buffer pool to a 
record area also supplied by the processing program. It is loaded at execution 
time by a LINK macro instruction. 


The module operates as follows: 


e It rounds the buffer length to the next higher fullword multiple if the 
specified length is not such a multiple. 


e It constructs a buffer-pool control block (see Figure 33) in the first twelve 
bytes of the virtual-storage space provided by the processing program. 


e It turns on the high-order bit of the BUFLG byte of the buffer-pool 
control block to indicate that a record area address is present. 


e It clears the control field (32 bytes) of the record area. 


e It stores the record area length in the record area (see Figure 34) provided 
by the processing program. 


e It chains the first buffer to the buffer-pool control block and determines 
the start of the next buffer by adding the rounded buffer length value to 
the address of the first buffer. The next buffer is chained to the preceding 
buffer until all buffers are built. 


e It returns control to the processing program. 


Figure 33 illustrates the buffer-pool control block (BUFCB) that describes 
the buffer pool when logical record interface is required for variable-length 
spanned records processed in the locate mode. 


Figure 34 illustrates the record area used to assemble and segment a spanned 
record. This record area is either acquired dynamically by data management 
at Open time, when the DCB specifies RECFM-VS/VBS, MACRF=GL/PL, 
and BFTEK=A, or provided by the problem program by means of a 
BUILDRCD macro instruction. 


BUFAD BUFLG;| BUFNO |BUFLTH BUFRECAD 


Address of Number of | Length Address of 


First Available Buffers of Each Record 
Buffer Requested | Buffer Area 


Byte O 4 5 6 8 12 


Figure 33. Logical Record Buffer-Pool Control Block 
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BUFAD: 4 bytes, contains the address of the first 
available buffer in the pool. 


BUFLG: 1 byte, set to X*‘CO’ when a record area 
address is present in the buffer control block. » 


Bit Meaning 
0-1 Record area present 
1-1 Buffer control block extended 


2-7 Reserved 


BUFNO: 1 byte, contains the number of buffers 
requested. 


BUFLTH: 2 bytes, contains the length rounded to the 
nearest fullword of each buffer requested. 


BUFRECAD: 4bytes, contains the starting address of 
the record area. 


Track 
Address to 
Beginning 

Segment of 
Record 


Index Position 
to 
Beginning 


of Data 


Next 
1OB 
Address 


Count 


R 
Field eserved 


in Block 


Figure 34. Record Area 


A description of the fields contained in the record area follows: 


e Length of Record Area. This 4-byte field contains the length of the entire J 
record area (data field+24 bytes). The length may be determined by the 
LRECL of the DCB macro at Open time plus 8 bytes for alignment or 
specified in the length of the record area parameter of the BUILDRCD 
macro instruction, in which case the BUILDRCD routine places the length 
of the record area in this field. The second bit of the first byte of this field 
is set on by the COBOL processor to indicate special processing of 
variable-length spanned records. If this bit is set, all records (spanned or 
nonspanned) are presented to the processing program in the record area. 


e Flags. This 1-byte field is used for internal data management control flags. 


¢ Index to Beginning of Data. This 1-byte field contains the index value to 
the beginning of the data (record descriptor word) in the data field. 


e Position of Record in Block. This 2-byte field contains the relative position 
of the beginning segment of a record within the block. 


e Track Address to Beginning Segment of Record. This 8-byte field is used to 
save the track address of that block which has a beginning segment of a 
record that is being processed. The low-order three bytes of this field are 
used to save the record address of the block that will have the beginning 
segment of a record if a spanned record is to be written. 


¢ Next IOB Address. This 4-byte field is used to save the next IOB address if * 
a spanned record is to be written. 


e Count Field. This 2-byte field is used to accumulate the number of bytes of 
data moved while segmenting. >. 
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e Reserved. Not used. 


e Data. The assembled logical record is located in this field. The maximum 
length of this field is either determined by the LRECL field of the DCB 
macro at Open time plus 8 bytes for alignment or equal to 24 bytes less 
than the length of the record area parameter of the BUILDRCD macro 
instruction. 


Problem determination assists the user in determining the causes of ABENDS 
by providing more information as to the cause of the abnormal termination. 
The recording and making available of significant information about the 
problem may eliminate the need for a core image dump. Better ABEND 
interpretation will be possible with the following problem determination 
operations: 


e Write-to-programmer giving the ABEND code, a return code that further 
describes the ABEND condition, and job environment information. 


e Recording of all control blocks relevant to the ABEND condition on a 
GTF data set, which will be dumped automatically by ABDUMP, or at the 
user’s initiation by AMDPRDMP. 


e A user ABEND exit is provided to allow the evaluation of the condition 
before the ABEND is taken. 


e An ABEND that provides a dump of relevant control blocks. 


Problem determination is of particular benefit in the open executors because 
having an alternative to an immediate ABEND results in a greater latitude in 
the control of the termination of a task. The error can be evaluated and the 
need for that data set at the time the error occurred can be determined, with 
the option to continue processing without it. 


Problem Determination Module IFG0559C: Module IFG0559C traces the data 
associated with a particular ABEND. 


The module operates as follows: 


e It receives control through an XCTL macro instruction from the 
O/C/EOV problem determination module, IFGO559B, when it senses a 
SAM problem determination flag. 


e It issues a MODESET macro instruction to change to the key of the caller. 


e It issues a GETMAIN macro instruction for work area core. 
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e If the GETMAIN macro instruction is successful, it issues a GTRACE 
macro instruction to record, in the GTF data set, the data associated with 
the ABEND designated by the ABEND and condition codes. In addition to 
the TIOT DDNAME and the ABEND condition code, which are always 
present, one or more of the following data areas is traced: 


DCB for BSAM or QSAM. 

DECB for BSAM only. 

Track capacity - maximum block size. 

Current DEB extent entry. 

All DEB extent entries. 

IOB or ICB seek field. 

First 88 bytes of the BDW and the block currently being processed. 
First 88 bytes of the RDW and the record currently bring processed. 


The following is a list of ABENDS, their associated condition codes, and the 
data traced for each. 


ABEND Condition 

Code Code Areas Traced 

002 04 DCB, IOB or ICB seek field, record. 

002 08 DCB, DECB, block. 

002 oc DCB, DECB, maximum block size, block. 

002 10 DCB, DECB, block. 

002 14 DCB, DECB, block. 

002 18 DCB and record. 

002 1C DCB, DECB, maximum block size, block. 

002 20 DCB, DECB, current DEB extent, maximum block 
size, block. 

002 24 DCB, DECB, current DEB extent, maximum block 
size, block. 

008 04 All DEB extents, block. 


e If the GTRACE macro instruction is successful, a LOAD macro 
instruction is issued to load the message CSECT, IGGMSG01. A WTO 
macro instruction is issued to inform the programmer that the GTF data set 
contains records associated with this ABEND. Upon return, a DELETE 
macro instruction is issued to delete the message CSECT. 


e It issues a FREEMAIN macro instruction to release the work area storage. 


¢ It transfers control to module IFGO559E upon successful completion or if 
an error occurred in the GETMAIN or GTRACE macro instruction. 


SVC routines are used when the process requires operation in the Supervisor 
state. The functions provided are ones that cannot be done in the problem 
state or in the user’s key. 
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DEVTYPE SVC Routine IGC0002D: This routine locates and passes to the 
requestor the characteristics of the device specified in the DD statement. The 
module operates as follows: 


e It issues an ESTAE macro instruction to establish a Task Recovery 
Routine, [IGCTO02D, to intercept abnormal terminations. 


e It searches the UCB and the Device Characteristics Table for the required 
information. 


e It places the data in the output area and returns to the calling program. 


e For the IBM 3340 Direct Access Disk Storage Facility, it determines the 
number of cylinders on the pack. 


IMGLIB SVC Routine IGCO010E: The IMGLIB routine IGCO010E builds a 
skeleton DCB and DEB for the SYS1.IMAGELIB data set or deletes the 
DCB and DEB for the SYS1.I[MAGELIB data set, depending on the 
parameter passed to it in register 1. The routine is entered from the SVC 105 
instruction. 


The IMGLIB macro is issued by Open executors and by SETPRT routines 
and can be issued by users. 


The routine operates as follows: 


e« It issues an ESTAE macro instruction to establish a TRR, IGCTO10E, to 
intercept abnormal terminations. 


¢ It makes a test to determine whether the control blocks for IMAGELIB 
need to be built or deleted. If register 1 contains Os, a DCB and DEB are 
built. 


« It uses a GETMAIN macro instruction to obtain a work area and then uses 
a LOCATE macro instruction to determine where the IMAGELIB volume 
is residing. 


e It takes the address of the UCB table from the CVT and searches for the 
corresponding UCB. 


e It uses the OBTAIN macro instruction to read in the format-1 DSCB and 
uses the information read and the UCB address to construct a skeleton 
DCB and DEB for the SYS1.IMAGELIB volume. The format-1 DSCB 
describes up to three extents. The SYS1.IMAGELIB data set can reside on 
up to 16 extents on a permanently resident volume. 


e If there are more than three extents on SYS1.IMAGELIB, the format-3 
DSCB seek address is obtained from the format-1 DSCB. It uses the 
OBTAIN macro to read in the format-3 DSCB and uses the information 
read and the UCB address to construct additional DEB extent descriptions. 


e If register 1 contains an address when the routine tests to determine 
whether the control blocks for the IMAGELIB volume need to be built or 
deleted, the DCB and DEB for IMAGELIB are to be deleted. 


e It uses the FREEMAIN macro instruction to delete the control blocks. If 
the DEB is not on the DEB chain or it does not point back to the DCB, a 
169 ABEND is issued. 


e It returns control to the calling routine through a BR 14 instruction. 
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Control Module IGC0002E (SVC 25—Track Balance, Track Overflow Erase): 
Module IGCO002E consists of two routines that erase either a part of one 
track or several tracks. The track balance routine determines the available 
space by erasing the remainder of the track; the track-overflow erase routine 
erases tracks at the end of each extent on which there are no data fields for 
blocks of the data set to which the extent belongs. The routine is used when a 
block in a data set with track-overflow record format would span extents. 


This module is entered if Read/Write module IGGO19BA, End-of-Block 
module IGG019C2, or Close executor IGGO201B issues an SVC 25 
instruction. 


e It issues an ESTAE macro instruction to establish a TRR, IGCTOO2E, to 
intercept abnormal terminations. 


Track Balance Routine: The track balance routine establishes a valid value for 
the DCBTRBAL field of a DCB opened for output to a direct-access device, 
when the field value has been invalidated by a preceding READ, POINT, or 
OPEN macro instruction. 


The routine operates as follows: 


e It constructs and issues an EXCP macro instruction for a channel program 
with the Erase command and a count exceeding the track capacity. The 
erase operation begins following the block just read or on the block 
pointed to. 


e It determines the approximate track balance by subtracting the residual 
count in the channel status word (CSW) from the count used in the 
channel program and inserts the difference in the DCBTRBAL field of the 
DCB. 


e If standard format is specified and the DCB blocksize is equal to the 
blocksize saved at Open time, the track balance will be computed 
arithmetically (rather than taking the approximation from the ERASE 
operation) and stored in the DCBTRBAL field. 


Track-Overflow Erase Routine: The track-overflow erase routine erases the 
space on a direct-access storage device that lies between the last block to be 
written into the current extent and the end of that extent. If the 
track-overflow end-of-block routine IGGO19C2 finds that the next segment 
of a block falls on a track beyond the present extent, that end-of-block 
routine uses the SVC 25 instruction to pass control and the channel program 
to this routine. 


The routine operates as follows: 
e It receives control when it is loaded. 


e It substitutes Erase commands for the Write commands in the channel 
program associated with the present IOB. 


e It issues an EXCP macro instruction to cause execution of the channel 
program and a WAIT macro instruction for its completion. 


e It returns control to the track-overflow end-of-block routine, irrespective 


of any errors in the execution of the channel program. 


@ 
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BSP Routine 


Control Module IGC0006I (SVC 69—BSP): Module IGCOO06I backspaces 
the data set one block whether the data set is on a magnetic-tape or 
direct-access device. 


The expansion of the macro instruction BSP includes an SVC 69 instruction 
which causes the module to be loaded and entered. 


The module verifies that the passed DCB describes a magnetic tape or 
direct-access device data set, and that the data set is being processed by 
BSAM. To accomplish this, the module operates as follows: 


It receives control after it is loaded. 


It issues an ESTAE macro instruction to establish a TRR, IGCT0069, to 
intercept abnormal terminations. 


It issues a MODESET macro instruction to change to the key of the caller. 


If the DCB is being processed by the CI and if a CI backspace routine 
entry point is provided, it gives control to the CI routine. When the CI 
routine relinquishes control, or if no CI routine is provided, it returns 
control to the processing program. 


If the device is a terminal, it returns control to the processing program. 


If a dummy data set is being processed, it returns control to the processing 
program. 


If the device type is not magnetic tape or direct-access, reason and return 
codes are put in registers 0 and 15 and control is returned to the caller. 


If either a tape mark or a direct-access EOF was read, reason and return 
codes are put in registers 0 and 15 and control is returned to the caller. 


It issues a GETMAIN macro instruction to obtain storage in which to build 
an IOB, an ECB, and a channel program. 


It builds and initializes an JOB and an ECB. 


From this point on, the control path depends upon the type of I/O device. 


For magnetic tape, the module operates as follows: 


It constructs and issues an EXCP macro instruction for a channel program 
to backspace one block, followed by a NOP to obtain device-end 
information from the backspace channel program. 


If the backspace channel program executed normally, the module sets 
register 15 to zero and returns control to the processing program. 


If the channel program executed with an error other than unit exception, 
the module sets the DCBIFLGS field to indicate a permanent error. The 
CHECK macro instruction, following the next READ or WRITE macro 
instruction, causes the Check routine to pass control to the processing 
program’s SYNAD routine. 


If the backspace channel program executed with a unit exception, the 
module constructs and issues an EXCP macro instruction for a channel 
program to forward space the tape one block, followed by a NOP to obtain 
device-end information from the forward space channel program. When 
channel end for the NOP occurs, the module returns control to the 
processing program with register 15 set to an error code. 
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e It issues a FREEMAIN macro instruction to free the work area. 


e It issues a MODESET macro instruction to return to KEY 0 and returns 
control to the caller. 


For direct-access devices, the module operates as follows: J ' 


» It decreases the DCBFDAD field in the DCB to the preceding block 
address across tracks, cylinders, or extents. 


e It sets the DCBOFLGS field to show that the DCBTRBAL field value is 
invalid. 

e If a valid preceding DCBFDAD value has been established, the module 
returns control to the processing program with register 15 set to zero. 


e If there is no valid preceding DCBFDAD value because the processing 
program has attempted to backspace beyond the first block, the module 
returns control to the processing program with register 15 set to an error 
code. 


e If a permanent error is encountered when reading the count fields (to 
establish the preceding DCBFDAD field value), the DCBIFLGS field 
value is set to indicate a permanent error. The Check routine, following the 
next READ or WRITE macro instruction, causes control to pass to the 
processing program’s SYNAD routine. 


e It issues a FREEMAIN macro instnuction to free the work area. 


e It issues a MODESET macro instruction to return to KEY 0 and returns 
control to the caller. 


STOW Module IGC0002A (SVC 21): Module IGC0002A builds the control J 
blocks, buffers, and channel program required to perform the requested 
function and to do the diagnostics to verify the validity of the caller’s request. 


The expansion of the STOW macro instruction includes an SVC 21 
instruction that causes this module to be loaded and to gain control. The 
STOW macro instruction is issued in one of two ways: 


e Explicitly by a processing program using BPAM for output. 


e Implicitly by a processing program using BSAM, QSAM, or BPAM for 
output, when issuing a CLOSE macro instruction to a DCB opened for a 
member of a partitioned data set. 


The module operates as follows: 
e It receives control when it is loaded. 


e It issues an ESTAE macro instruction to establish a TRR, IGCT0021, to 
intercept abnormal terminations. 


e It issues a MODESET macro instruction to change to the key of the caller. 


e If the DCB is neither Open nor Open for Input, a MODESET macro 
instruction is issued to return to key 0, reason and return codes are put in. 
registers 0 and 15, and control is returned to the caller. 


e It issues a GETMAIN macro instruction to obtain storage for a work area 
in which to save information about the function being performed; save the 
parameters supplied by the caller; and build an IOB, ECB, channel 
program, and three buffers used in reading and writing directory blocks. » I 


e If the GETMAIN macro instruction is not successful, a MODESET macro 
instruction is issued to return to key 0, reason and return codes are put into 
registers 0 and 15, and control is returned to the caller. 


e It initializes the channel program and issues an EXCP macro instruction to 
search the directory for an entry block with a key equal to or higher than 
the member name. It reads that and the next entry block into the input 
buffers. For the change option (C), the search is on the member name that 
is the lowest in alphameric sequence. 


e It checks the validity of the option requested, as follows: 
Add. Verifies that the member name does not already exist. 


Replace. Verifies that the member name exists and, if not, sets the 
return code and changes the option to Add. 


Change. Verifies that the member name to be changed exists and that 
the new member name does not duplicate an existing name. 


Delete. Verifies that the member name exists. 


e If an I/O error occurs while directory entry blocks are being read or if the 
option requested is invalid, a FREEMAIN macro instruction is issued to 
free the work area, a MODESET macro instruction is issued to return to 
key 0, reason and return codes are put into registers 0 and 15, and control 
is returned to the caller. 


e If the option requested is valid, the module transfers control to module 
IGG0210A through an XCTL macro instruction. 


STOW Module IGG0210A: Module IGG0210A builds the channel program 
used by module IGG021AB and, if required, writes an EOD marker following 
the last member written. 


The module is loaded and receives control through an XCTL macro 
instruction issued by module IGCOOO2A. 


The module operates as follows: 


e It writes an EOD marker following the last member written if the following 
conditions are met: 


The Add or Replace option was specified. 

The entry being added or replaced is not an alias. 

The DCB was not opened for RDBACK or UPDATE. 
The last I/O operation was Write. 


e If the data set must be extended to write the EOD marker, the module 
issues a MODESET macro instruction to change to key 0, a SETLOCK 
macro instruction to obtain the local lock, and branches to DEBCHK to 
check the validity of the caller’s DEB. If the DEB is valid, the 
DEBVOLSQ is changed for EXCP, a SETLOCK macro instruction is 
issued to free the local lock, and a MODESET macro instruction is issued 
to return to the caller’s key. 


It then changes the MACRF operand in the user’s DCB to EXCP and 
issues an EOV that points to that DCB. 


Upon return, it restores the MV ACRF operand and validates and restores 
the DEBVOLSQ field. 
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If the DEB is not valid, it issues an ABEND macro instruction to terminate 
processing. 


e If an EOD marker is written after the last member, the FDAD, RELAD, 
and TRBAL fields in the caller’s DCB are updated. 


e If an I/O error occurs while the EOD marker is being written, the module 
frees the work area, returns to key 0, sets the reason and return codes in 
registers 0 and 15, and returns control to the caller. 


e It returns the TTR of the last member written if the following conditions 
are met: 


The Add or Replace option was specified. 
The entry being added or replaced is not an alias. 


e It builds the channel program used by module IGG021AB to read and 
write directory blocks. 


e If no errors are detected, it transfers control to module IGGO21AB 
through a XCTL macro instruction. 


STOW Module IGG021AB: Module IGG021AB maintains partitioned data 
set directories in ascending order of the binary values of the names of the 
members, 


Module IGG021AB is loaded and receives control through an XCTL macro 
instruction issued by module IGG0210A. 


The module operates as follows: 


e If the option requested is add, replace, or change and if there are no 
unused directory blocks, a dry run on the directory is made to determine if 
sufficient space is available in which to perform the requested function. 


e It adds, replaces, changes the name of, and deletes directory entries, per 
the requested options, by issuing an EXCP macro instruction to write and 
read directory blocks. 


e It expands or compresses the directory as necessary to accomplish the 
requested function. 


e If an I/O error occurs while writing or reading directory blocks, or if there 
is not sufficient space remaining in the directory, processing in this module 
is terminated. 

e It issues a FREEMAIN macro instruction to free the work area. 

e It issues a MODESET macro instruction to return to key 0. 


e It returns control to the calling program. 


FIND (C Option) Macro Expansion: The macro expansion moves the relative 
address (TTRK) from the BLDL list in virtual storage to the DCBRELAD 
field in the requester’s DCB. The FIND macro instruction then does a 
branch-and-link to the Point routine. 


Resident Module IGC018: At initial program loading (IPL) time, the nucleus 
initialization program (NIP) constructs a resident BLDL table from 
SYS1.LINKLIB directory entries. That table is the one referred to by the 
Find and BLDL routines in this module. 


J 


J 


pe 


The routines comprising the module gain control through an SVC 18 
instruction in a processing program. A FIND (D Option) or BLDL macro 
instruction expansion generates an SVC 18 instruction which causes control 
to pass to CSECT IGCO18, the entry point for the Find (D Option) and 
BLDL routines. Control programs may use a BALR instruction and the 
address found in the communications vector table (CVT) for entry points 
IECPCNVT, IECPRLTV, and IECOSCR1 to pass control to the respective 
routines. 


Find (D Option) Routine—Entry Point and CSECT Name: IGCO018 (SVC 18): 
The Find (D Option) routine finds the relative address of the member named 
in the macro instruction. It then causes the relative address to be converted 
into the full direct-access device address (FDAD) and to be loaded into the 
DCBFDAD and IOBSEEK fields. 


The routine operates as follows: 
e It issues an ESTAE macro instruction to establish the TRR, IGCT0018. 


e If SYS1.LINKLIB is the referenced library, it scans the resident BLDL 
table for an entry that matches the given member name. 


e If SYS1.LINKLIB is not the referenced library, or if the name is not in the 
table, it searches the directory for an entry block with a key equal to or 
higher than the given member name. It reads that entry block into virtual 
storage and searches the entry block for the matching entry. 


e If the name is in the table, or after finding the matching entry in an entry 
block read in, it enters the relative address stated in the entry into the 
DCBRELAD field in the DCB. 


e It passes control to the Point routine by issuing a BAL instruction for 
supervisor key callers or a SYNCH macro instruction for user key callers. 


e It returns control to the processing program. 


BLDL Routine—Entry Point: IGC018 (SVC 18): The BLDL routine 
completes a BLDL table with the directory entry for each of the members 
named in the BLDL table. 


The routine operates as follows: 
e It issues an ESTAE macro instruction to establish the TRR, IGCT00O18. 


e If SYS1.LINKLIB is the referenced library, it scans the resident BLDL 
table for an entry that matches the given member name. 


e If SYS1.LINKLIB is not the referenced library, or if the name is not in the 
table, it searches the directory for an entry block with a key equal to or 
higher than the given member name. It reads that block into virtual storage 
and searches the entry block for the matching entry. 


e If the name is in the table, or after finding the matching entry in an entry 
block read in, it moves the entry into the processing program’s BLDL 
table, obtains the next name to be matched, and returns to the beginning of 
the routine. 


e When the BLDL table has been completed, the routine returns control to 
the processing program. 


Convert Relative-to-Full Address Routine—Entry Point: ECPCNVT: 
Conversion routine IECPCNVT accepts, in register 0, relative addresses of 
the form TTR for direct-access devices and presents the corresponding full 
device addresses of the form MBBCCHHER at the location shown by 
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register 2. This routine’s external interface is documented in OS/VS2 System 
Programming Library: Data Management. 
The routine operates as follows: 


e For each extent, the routine reduces the amount TT by the number of 2 
tracks in the extent. When the balance is negative, the proper extent has 
been reached. 


e It determines the full device address for the specified relative value. 


Convert Full-to-Relative Address Routine—Entry Point: IECPRLTV: 
Conversion routine IECPRLTV accepts, from the location shown by register 
2, a full device address of the form MBBCCHHR for direct-access devices 
and presents the corresponding relative address of the form TTR in register 0. 


The routine totals the number of tracks per extent for the (M-1) extents. For 

extent M, it adds the number of tracks entered into the extent. This routine’s ‘ 
external interface is documented in OS/VS2 System Programming Library: 

Data Management. 


Convert Record Number to Sector Value Routine—Entry Point: IECOSCR1: 
Conversion routine IECOSCRI1 converts the record number for a fixed or 
variable length record data set to a sector value for use on an RPS device. 


For fixed length records, register 0 contains a data length in the two 
high-order bytes and a key length in the third byte. The fourth byte contains 
the record number for which the sector value is desired. 


For variable length records, register 0 contains the number of key and data 
bytes already written in the two high-order bytes. The third byte contains a 1 
(for keyed records) or a 0 ( for non-keyed records). The fourth byte contains 
the record number for which the sector value is desired. 


For both types of records, registers 2, 14, and 15 contain the following: 3 


Register 2. The high order byte contains the UCB+19. The other three bytes 
contain the address at which the sector value is stored. 


Register 14. The return address. 
Register 15. The entry point address of this routine. 


Upon completion, the sector value is stored at the designated address and 
registers 0, 9, 10, and 11 are modified. 


Calculate Track Balance or Records per Track Routine—Entry Point: 
IECOSCR1+12: Within module IGCO18, the conversion routine IECOSCR1 
calculates the new track balance or the number of records that can fit on a 
DASD track. 


The routine input consists of: 

e Device table address 

e Record number 

e Keylength 

e Data length 

e Track balance (optional) 

Register 2 contains the address of this 12 byte parameter list. 
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The routine returns: 
e In register 0, one of the following values: 
— The number of records which will fit on a track 
— The new track balance 
— The largest record that will fit on a track 
e In register 14, the return address 
e In register 15, the address of ECOSCR1 
Registers 9, 10, and 11 are work registers used by the routine. 


The conversion routine is invoked via the TRKCALC macro. See OS/VS2 
System Programming Library: Data Management for information about the 
TRKCALC macro. 


SYNADAF and SYNADRLS Routines 


See Diagram O for an illustration of the flow of processing through 
SYNADAF routines. 


The SYNADAF routines pass control between modules by use of V-type 
address constants so as to maximize the chances of the next module being on 
the same page. 


SYNAD Analysis and Format Routine IGC0006H: This routine is the 
SYNADAF SVC initial load module and the only load module for the 
SYNADRLS SVC. It gets storage for the register save area and the message 
buffer area and transfers control to the secondary load for error analysis. For 
SYNADRLS, it restores the save area pointers and frees gotten storage. 
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The routine operates as follows: 


e It issues an ESTAE macro instruction to establish a TRR (task recovery 
routine) to intercept abnormal terminations while SYNADAF processing is 
in effect. 


e It tests to determine whether it was entered for SYNADAF or 
SYNADRLS. 


e If entered for SYNADAF: 


It issues a GETMAIN macro instruction for a general register save area 
and a message buffer area from subpool 0, in the user’s key. 


It initializes the message buffer area. 
It tests for a valid access method. If not valid, it issues an ABEND. 
It loads the message CSECT. 


It sets up the parameter list for transfer of control to secondary load 
routines for further analysis. 


For BISAM or QISAM, it tests to determine if the DEB CI 

(compatability interface) bit is set. If so, and the CISYNADAF routine 
is provided, it transfers control to the SYNADAF routine via a SYNCH 
macro instruction. It returns to the caller when it again receives control. 


If no CISYNADAF routine is provided the routine returns to the caller. 


If the DEB CI bit is not on, it branches to IGC0O206H for BISAM and 
to IGC0306H for QISAM. 


It branches to IGC0406H for BTAM, QTAM, or GAM. 
It branches to IGCOS06H for EXCP. 
It branches to IGCO906H for BPAM or BDAM. 


For BSAM or QSAM, it tests to determine if the DCB CI bit is on. If 
so, and the CI SYNADAF routine is provided, it branches to the 
SYNADAF routine via a SYNCH macro instruction. It returns to the 
caller when it again receives control. 


If the SYNADAF routine is not provided, the routine returns to the 
caller. 


If the DCB CI bit is not on, it branches to IGCO906H for BSAM or 
QSAM. 


e If entered for SYNADRLS: 
It restores the caller’s save area pointer. 


It releases the storage gotten for the register save area and the message 
buffer area. 


It returns to the caller. 


SYNADAF for BSAM, QSAM, BDAM, EXCP, and BPAM IGC0106H: This 
‘routine continues the error analysis for EXCP, BDAM, BPAM, BSAM, and 
QSAM and formats the message buffer. It receives control from IGC0506H 
for EXCP and from IGCO906H for the access methods. 
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The routine operates as follows: 
e It tests to determine if the data set was opened. 


e If the data set was opened: 


It converts the DCB block count for tape and the IOB last seek address 


for disk storage into printable form. 
It checks the ECB post codes. 


If there is a permanent I/O error, it finds the IOBCSW for a unit check 


condition. 


If there is a unit check, it transfers control to IGCO806H for the 3211 
Printer and to IGC0706H for all other devices. 


If there is no unit check, it deletes the message CSECT and returns to 
the caller. 


e If the data set was not opened or if there was no permanent I/O error: 
It examines the post code and formats the message accordingly. 
It deletes the message CSECT and returns to the caller. 


SYNADAF Routine for BDAM and BISAM IGC0206H: This routine 
completes the formatting of the message buffer for BDAM and BISAM. 


It operates as follows: 
e For BDAM 
It formats the DDNAME. 


It searches the completion codes of the DECB and stores the related 
message. 


If there is an IOB, it translates the Seek address into printable format. 
Else, it sets the Seek address field of the message buffer to zeros. 


e For BISAM 


It searches the completion codes of the DECB and stores the related 
message. 


It formats the device type and DDNAME and stores them in the 
message buffer. 


e It deletes the message CSECT when formatting for BDAM or BISAM is 
complete. 


e Jt returns to the caller. 


SYNADAF for QISAM IGC0306H: This routine analyzes status and sense 
bytes and formats the condition portion of the message buffer, for QISAM. 


The routine operates as follows: 
e It formats the operation type. 
e It tests the ECB post code. 


e If the I/O event is not completed normally, it tests for an extent violation 
or a permanent I/O error and stores the corresponding error message. 


e It analyzes the exceptional condition code and stores the error message. 


e It formats the device type, unit ID, Seek address, and DDNAME. 


2 


J 
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e If there is no pointer to the DCB, it deletes the message CSECT and 
returns to the caller with a return code of 8 in register 15. 


e Otherwise, it branches to IGCO406H for completion of the formatting. 


SYNADAF Routine for TCAM/QISAM IGC0406H: This routine continues 
the error analysis for GAM, BTAM, QTAM, QISAM, and TCAM. 


It operates as follows: 
e It receives control from IGCOOQ0O6H for GAM, BTAM, or QTAM. 


e It formats the access method type and stores “SYNAD ROUTINE NOT 
YET SUPPORTED” in the message buffer and returns to user. 


e It receives control from I1GCO306H for QISAM. 


e If the error is not a permanent I/O error, it searches the CSW status bytes 
and the IOB sense bytes and formats the related messape text. 


e Jt receives control from IGCO906H for TCAM. 
e It stores the access method type in the message buffer. 


e It checks to determine if the error 1s a work area overflow or an invalid 
destination. If neither is the cause of the error, the routine assumes a 
sequence error and stores the appropriate message text. 


e It formats the operation type. 
e It deletes the message CSECT and returns to the caller. 


SYNADAF SVC IGCO506H: This routine formats the message buffer for 
EXCP. 


The routine operates as follows: 
e It stores the access method type in the message buffer. 


e It obtains the operation code from the CCW and translates it into printable 
form. 


e lt validity-checks the UCB. 


e If the UCB is not valid, it deletes the message CSECT and returns to the 
caller with a return code of & in register 0. 


e It stores the unit ID in the message buffer. 
e It branches to IGCOILO6H for further analysis. 


SYNADAF SVC for OCR Load IGC0606H: This routine completes the 
formatting of the message buffer for OCR devices. IGCO606H receives 
control from IGCO906H. : 


It operates as follows: 


e It translates the CCW operation code into printable form and stores it in 
the message buffer. 


e It formats the DDNAME and stores it in the message buffer. 
e [It checks for the ECB completion code and stores it in the message buffer 


e It searches the IOBCSW status bytes and the [OB sense bytes and formats 
the appropriate text. 
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e The sense byte settings for the OCR are device-dependent and so the 
routine increments the pointer to the appropriate message text and then 
stores the pointer in the message buffer. 

e It deletes the message CSECT and returns to the caller. 

SYNADAF Unit Check Analysis IGCO706H: This routine analyzes the JOB 

sense bytes on a unit check condition for direct access, magnetic tape. and 


| unit record devices, except for the 3203, 3211 and 3800 printers. It receives 


control from 1GCOLO6H and formats the message buffer and sets blanks in 
the work area. 


It operates as follows: 
e It scans the JOB sense bytes for error indications. 


e It analyzes [OB sense bytes 0 and | and stores the corresponding error 
message in the message buffer. 


© If there is a write-inhibit condition for a 2314 of 3330 device, it stores the 
write-inhibit message text. 


e If the unit record device type is a TCR (tape cartridge reader). the routine 
re-analyzes the sense bytes and stores the appropriate message (ext. 


e It deletes the message CSECT and returns to the caller. 


SYNADAF Unit Check Analysis IGCO806H: This routine analyzes the IOB 


sense bytes on unit check conditions for 3203, 3211 and 3800 printer devices. 


IGCO806H receives control through a branch from IGCOLO6H for 3211 
Printers on a unit check condition. 


It operates as follows: 
© It scans the IOB sense bytes for error indications. 


e If the LOB sense bytes do not have the status indicator, it sets the message 
text to “unknown condition.” 


e It stores the appropriate message for the LOB sense bytes. 
e [t deletes the message CSECT and returns control to the caller. 


SYNADAF Error Analysis IGCO906H: This module continues the generalized 
analysis of errors for BDAM, QSAM, BPAM, BSAM, and TCAM dummy 
data sets. 

IGCO906H receives control through a branch from [IGCOOO6H. 

It operates as follows: 


e For BDAM 


If the DECB does not contain an [OB address, the routine transfers 
control to IGC0206H for completion of the message buffer formatting. 


If the DECB contains an IOB address, the routine formats the unit ID, 
device type, and operation type and branches to IGCOLO6H for further 
analysis. 

«© For BSAM, QSAM, and BPAM 
It checks to determine if the device is an OCR. If so, it branches to 
[COGOOH. 


lt formats the operation type, unit ID, and device type. 
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It branches to IGCO106H for further analysis. 
e For TCAM dummy data sets, it branches to IGCO406H. 


SETPRT and SETDEV Routines 


There are 13 routines associated with the SETPRT macro instruction. Routine 

F IGCOOOS8A receives control when the SVC 81 instruction is issued. Routine 
IGG08101 receives control after routine IGCOOO8A if a specified UCS image 
is to be loaded from the SYS1.IMAGELIB. Routine IGG08102 receives 
control after routine IGG08101 to load the UCS image into the UCS buffer 
and to print verification lines if required. Routines IGG08103 and 
IGG08104, respectively, locate the FCB image and load it into the forms 
control buffer. Routine IGG08104 also verifies the load and/or allows forms 
alignment. 


When the device for which a SETPRT has been issued is a 3800 printer, 
executor IGCOOO8A gives control to executor IGG08110. Executors 
IGG08111, IGG08112, IGG08113, IGGO8114, and IGG08115S are given 
control, depending on the contents of the SETPRT parameter list. 


When a SETPRT is issued for a SYSOUT data set, executor IGCOOO8A gives 
control to executor IGG08117. 


All messages issued by the SETPRT routines are in a message CSECT. The 
SETPRT routines must extract the text from the CSECT before issuing the 
message. If the user’s key is greater than or equals 8, the SYNCH macro 
instruction is used for all WTO/WTORs for integrity reasons, because the 
message text is moved to the user’s work area. 


Two routines are associated with the SETDEV macro instruction. The 
SETPRT routine, IGCOOO8A, receives control when the SVC 81 instruction 
is issued. Routine IGGO08108 receives control from routine IGCOO08A to 
initialize the IBM 3890 Document Processor Control Unit or the IBM 3886 
Optical Character Reader. 


Figure 34.1 shows the conditions that cause the executors to gain control. 
Executor IGCOO10E receives control when SVC 10S is issued to build or 
delete the DCB and DEB for a SYS1.IMAGELIB data set. 


SETPRT Routine IGCOO08A: The macro instruction SETPRT (set-printer) 
expands into an SVC 81 instruction that causes this routine to be loaded and 
to gain control. Routine IGCOOO8A determines whether the specified UCS 
image is to be loaded from the SYS1.IMAGELIB after processing all 
outstanding output requests for the DCB. It also determines if the 3890 
Document Processor Control Unit is to be loaded and, if so, gives control to 
routine IGG08108. If the 3800 printer is to be set up, control is given to 
1GG08110. If aSYSOUT data set is requested, control is given to routine 
1GG08117. 


Input to the SETPRT executors is a 56-byte parameter list pointed to by 
register 1. See the ‘““Data Areas” section for a description of the parameter 
list. 


| The SETPRT routine operates as follows: 


e« It issues an ESTAE macro instruction to establish a TRR, IGCT1081, to 
intercept abnormal terminations. 


e It saves information in the SVRB extended save area for IGCT1081, in 
case the SETPRT ESTAE gets control. 
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e It contains a bootstrap routine that gets control from RTM; issues a LOAD 
macro instruction, followed by a DELETE macro instruction, for 
IGCT1081 (to get the entry point address of IGCT1081 in LPA); and 
branches to that module. 


e It issues a LOAD macro instruction for message CSECT (IGGMSG01). 


e It tests the DCB for a SYSOUT data set that is open for output and 
bypasses unit record processing. 


e If the 3890 or 3886 Document Processor Control Unit is to be loaded, it 
passes control to routine IGGO08108. 


e It uses the GETMAIN macro instruction to obtain two work areas. 
1. Key 5, subpool 230, for BLDL parameter list, a general work area. 


2. User key, subpool 230, another general work area. (See ‘“SETPRT 
Work Area’’ in the “Data Areas”’ section.) 


e It sets up various fields in the work areas for subsequent loads of SETPRT. 


e When EXCP is specified in the DCB, it builds an IOB in the user key work 
area. 


e When QSAM is specified for the DCB, the routine causes all outstanding 
output requests to quiesce. 


e If itis fora SYSOUT data set, control passes to routine IGG08117. 


e It uses the EXCP macro instruction to execute block data check or reset 
block data check according to the specification in the SETPRT macro 
instruction. 


e If the user does not specify an image in the SETPRT parameter list, 
UCS/FCB images will, for integrity reasons, be ‘force loaded’ with the 
current images as specified in the UCB. 


e It issues SVC 105 to open SYS1.IMAGELIB. 
e When a UCS image is to be loaded, it passes control to routine IGGO8101. 


e If an FCB load is required but a UCS load is not, routine IGG08 103 is 
called. 


e If the device is a 3800 printer, control is given to executor IGGO08110. 


e If the caller’s request is invalid, it frees the work area and returns to the 
caller with a return code in register 15. See OS/VS2 Data Management 
Macro Instructions for a description of the return codes. 


SETPRT Routine IGG08101: Routine IGG08101 is entered from routine 
IGCOOO8A when the specified UCS image is to be loaded from the 
SYS1.IMAGELIB. 


The routine operates as follows: 


e It uses the BLDL macro instruction to locate the UCS image in the 
SYS1.IMAGELIB. 


e If the UCS image is not in the library, the routine requests the operator to 
specify an alternate UCS image to be loaded. 


1. If the operator cancels the job step, it returns to the caller, with a 
nonzero return code in register 15. 


2. If the operator replies with a “‘u” the current image is ‘force loaded.’ 
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e If an error occurs during BLDL processing, it returns control to the caller 
(for non-FCB printers), with a nonzero return code in register 15. For 
FCB printers it transfers control to IGG08103. y 


e When the UCS image is in the library, the routine uses the LOAD macro 
instruction to retrieve the UCS image from the library. 


¢ Before returning to the caller when an error condition exists, it issues 
DELETE macro instructions for the message CSECT and for the UCS 
image, if it was loaded. It also frees the work areas and issues a CLOSE 
macro instruction for SYS1.IMAGELIB. 


e The routine passes control to routine IGG08102 to load the retrieved UCS 
image into the UCS buffer. 


SETPRT Routine IGG08102: Routine IGG08102 is entered from routine 
IGG08101 to load the UCS image into the UCS buffer and to print 
verification lines if required. 


The routine operates as follows: 


e It uses the EXCP macro instruction to load the UCS image into the UCS 
buffer. 


e If an error occurs during UCS load, it returns control to the caller, with a 
non-zero return code for non-FCB printers. For FCB printers, it transfers 
control to IGG08103. 


¢ Before returning to the caller when an error condition exists, it issues 
DELETE macro instructions for the message CSECT and for the UCS 
image, if it was loaded. It also frees the work areas and issues a CLOSE 
macro instruction for SYS1.IMAGELIB. 


e When verification of the image is required, the routine uses the EXCP J 
macro instruction to print the UCS image for verification. 


e If an error persists during verification, it returns control to the caller, with a 
non-zero return code in register 15. 


e It gets the local lock and updates the UCB to reflect the new image. It then 
releases the local lock. 


e It uses the DELETE macro instruction to release the UCS image. If the 
FCB is not to be loaded, FREEMAIN macro instructions release the work 
areas, a DELETE macro instruction releases the message CSECT, and 
control is returned to the user’s program. 


If an FCB image is specified, routine IGG08103 is called; otherwise, control 
is given to the user’s program. 


SETPRT Routine IGG08103: Routine IGG08103 locates the FCB image in 
the problem program’s DCB exit list or in SYS1.IMAGELIB and loads it into 
virtual storage. It is entered from IGCO008A, IGG08101, or IGG08 102. 


The routine operates as follows: 


e It checks the DCB exit list to see whether the specified FCB image is 
defined in the problem program. 


e It uses the BLDL macro instruction to locate the FCB image in 
SYS1.IMAGELIB if the image is not specified in an exit list. 


e If an error occurs during BLDL processing, it returns control to the caller, ' 
with a non-zero return code in register 15. = | 
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e If the image is not found in the library, the routine requests the operator to 
specify an alternate FCB image. 


1. If the operator cancels the job step, it returns to the caller, with a 
non-zero return code in register 15. 


2. If the operator replies with a “‘u’’, the current image is ‘force loaded.’ 


e Before returning to the caller when an error condition exists, it issues 
DELETE macro instructions for the message CSECT and for the FCB 
image, if it was loaded. It also frees the work areas and issues a CLOSE 
macro instruction for SYS1.IMAGELIB. 


e If the FCB image is specified in the problem program or successfully 
loaded into virtual storage from SYS1.IMAGELIB, routine IGG08104 is 
called to load the image into the forms control buffer and print a 
verification, if requested. 


SETPRT Routine IGG08104: Routine IGG08104 loads the FCB image into 
the forms control buffer and verifies the load and/or allows forms alignment. 
It is entered from IGG08103. 


The routine operates as follows: 
e It loads the forms control buffer with the specified image. 
e If VERIFY is specified, the image is printed for visual verification. 


¢ If an I/O error occurs during verification, control is returned to the caller 
with a non-zero return code in register 15. 


e If ALIGN is specified, the operator is instructed to align the forms. 


e It issues a DELETE macro instruction for the message CSECT and for the 
FCB image, if it was loaded from SYS1.IMAGELIB. It also issues a 
CLOSE macro instruction for SYS1..MAGELIB and frees the work area 
gotten by IGCOOO8A. 


e The routine always exits to the problem program. 


SETDEV Routine IGG08108: IBM 3890 Document Processor or IBM 3886 
Optical Character Reader routine. IGG08108 receives control from routine 
IGCOOO8A. 


The routine operates as follows: 

e It verifies the SETDEV parameter list. 
e It loads the appropriate control unit. 

e It exits to the problem program. 


SETPRT Executor IGG08110: Executor IGG08110 is entered from executor 
IGCO008A when the UCB device type indicates that SETPRT processing is 
being done for a 3800 printer. 


The executor operates as follows: 


e It builds a SETPRT path table according to the format and content of the 
SETPRT parameter list. The path table is used to control the sequence of 
execution for subsequent 3800 printer SETPRT executors. 


When printer initialization is requested, IGG08110 uses the EXCP macro 
to issue the channel command sequence that resets the controls for the 
3800. 
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It issues the LOAD macro to load the requested character arrangement 
tables residing in SYS1.IMAGELIB (or at addresses provided by the 
caller). 


If an error is detected, it builds a message parameter list and calls executor 
IGG08116, then branches to executor IGG08115. Otherwise, it calls the 
next 3800 printer SETPRT executor specified in the SETPRT path table. 


SETPRT Executor IGG08111: Executor IGG0O8111 is entered when 
character arrangement tables are successfully obtained by IGG08110. 


The executor operates as follows: 


It determines which character sets are needed for the character 
arrangement tables specified in the SETPRT parameter list. 


It reorders the character set positions to be loaded by referencing the 
current IDs as shown in the UCB. This minimizes the possibility of 
reloading previous character sets into the 3800. 


It formats the translate tables, using the character arrangement tables. 


It uses the EXCP macro to load the 3800 printer’s writable character 
generation modules (WCGMs) with the even-numbered hardware 
character sets. 


It issues a BLDL and a LOAD macro to read the odd-numbered library 
character sets into storage. 


It uses the EXCP macro to load the library character sets into the 3800 
printer’s WCGM storage with a load graphic character modification CCW. 


It issues a DELETE macro to free the storage used for the library 
character sets. 


If an error is detected, it builds a message parameter list and calls executor 
IGG08116, then branches to executor IGG08115. Otherwise, it calls the 
next 3800 printer SETPRT executor specified in the SETPRT path table. 


SETPRT Executor IGG08112: Executor IGG08112 is entered after 
successful processing by IGG08111, or when the SETPRT parameter list 
requires copy modification. 


The executor operates as follows: 


It uses the EXCP macro to select the proper 3800 printer’s translate table 
position(s) and to load the translate table(s) into the printer. 


When graphic modification modules are specified for the character 
arrangement tables, IGG08112 issues the LOAD macro to obtain the 
desired graphic modification modules from SYS1.IMAGELIB. 


It issues EXCP to load the graphic modification records into the 3800. 


It issues a DELETE macro to free the storage used by the loaded graphic 
character modification modules. 


If acopy modification module (residing in SYS1.[MAGELIB) is requested, 
IGG08112 issues LOAD to retrieve it. 


a 


It uses EXCP to load the 3800 printer with the copy modification record. 


It issues a DELETE macro to free the storage used by the loaded copy 
modification module. 


A 
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e If an error is detected, it builds a message parameter list and calls executor 
IGG08116, then branches to executor IGG08115. Otherwise, it calls the 
next 3800 printer SETPRT executor specified in the SETPRT path table. 


SETPRT Executor IGG08113: Executor IGG08113 is entered when forms 
control buffer image processing is required. 


The executor operates as follows: 


e It checks for the specified FCB image identifier using FCB entries in the 
DCB exit list. 


e When the address of the FCB image is not passed to the caller and the 
FCB image cannot be located by the DCB exit list, the FCB image is 
obtained from the SYS1.IMAGELIB data set using the LOAD macro. 


e It loads the specified FCB image into the 3800 printer. 


e If FCB image verification is requested, IGG08113 formats and prints on 
the 3800 printer a map of the specified FCB image. A message, asking for 
visual verification, is sent to the operator. 


e If an error is detected, it builds a message parameter list and calls executor 
I1GG08116, then branches to executor IGG08115. Otherwise, it calls the 
next 3800 printer SETPRT executor specified in the SETPRT path table. 


SETPRT Executor IGG08114: Executor IGG08114 is entered when the 
UCB extension indicates that the 3800 printer has the burster-trimmer- 
stacker feature installed, or when forms overlay processing is requested. 


The executor operates as follows: 


e It verifies that the paper is positioned properly, and informs the operator if 
paper repositioning is required. 

e When the FLASH parameter is used, it requests the operator to install the 
requested forms overlay negative. 

e It passes control to executor IGG08115. 


SETPRT Executor IGG08115: Executor IGGO8115 is the last module 
executed for 3800 SETPRT processing. 


The executor operates as follows: 


e If no errors were detected by previous 3800 printer SETPRT executors, 
IGG08115 initializes the 3800 printer with: the starting copy number, the 
total number of copies to be printed, and the total number of copies to 
contain a forms overlay image. 


e It resets the translate table index in the 3800 printer to the first translate 
table loaded. 


e It restores the caller’s control blocks as required, deletes any loaded 
modules, and frees previously obtained virtual storage loaded or acquired 
by or for SETPRT. 


e It exits to the issuer of the SVC 81. 


SETPRT Executor IGG08116: Executor IGG08116 is the error message 
processing routine and is called by the other 3800 SETPRT executors when 
an error is detected. 
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The executor operates as follows: 


It checks the return code and, if an I/O error is indicated, it retrieves the 
opcode of the failing CCW and stores it into byte 0 of the reason code. J 


o 


It uses the message parameter list passed by the caller in the SETPRT work 
area, and formats the corresponding message in a work area buffer. 


If the message suppression bit in the SETPRT parameter list is off, it will 
do the following: 


1. If aSYSOUT error or a previous I/O error is indicated, a WTO to the 
programmer is issued. 


2. For all other messages, except for a BURST request error, an initialize 
printer CCW is issued to ensure a standard setup, and the error message 
is created on the 3800 printer. For a BURST request error, the setup is 
left unchanged, and the message is written with the current setup for 
informational purposes. 


3. If a paper jam or cancel key condition is detected, the corresponding 
message is formatted in the work area buffer, and the return and reason 
codes are updated. Since the printer is in a not-ready state, no message 
is written to the 3800. 


If a message feedback area is provided by the user program, the message 
text is copied from the work area buffer into the user-specified area. 


It returns to the calling program through a BR 14 instruction. 


SETPRT Executor IGG08117: Executor IGG08117 is entered when the 
DCB indicates that SYSOUT processing is requested. 


The executor operates as follows: ; 


It copies the user’s SETPRT parameter list into the key 5 storage in the 
work area. 


It uses the GETMAIN macro instruction to obtain two key 5 work areas 
for SYSOUT processing. 


1. A work area for subsystem interface control blocks, JFCB and JFCBE 
control blocks, and for information saved to communicate with the 
system work area (SWA) manager routines. 


2. A parameter list for spool file allocation routine. 
It calls the SWA manager to read a copy of the JFCB into the work area. 


If a JFCBE exists, it calls the SWA manager to read a copy of the JFCBE 
into the work area. 


It calls the CLOSE subsystem interface to notify JES that a data set 
segment is finished. 


It updates local copies of the JFECB and JFCBE according to information 
in the SETPRT parameter list. 


It builds the spool file allocation parameter list and calls the scheduler 
spool file allocation routine (IEFAB4SF). This will provide JES with new + 
setup requirements, segment the data set, and update the JFCB and 
JFCBE in the SWA. 


It calls the OPEN subsystem interface to notify JES that a new data set 
segment is to be created. » 
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e The executor frees up the SETPRT resources before returning to caller as 
follows: 


1. It deletes the message CSECT (IGGMSG01). 
2. It restores the IOB. 

3. It saves return and reason codes in the SVRB. 
4. It issues the FREEMAIN macro to: 


- Free the user key SETPRT work area 

- Free the spool file allocation parameter list area 
- Free the SYSOUT work area 

- Free the key 5 SETPRT work area 


5. It places the return and reason codes in registers 15 and 0, and returns 
to the caller. 


6. If an error is detected, it builds a message parameter list and calls 
executor IGG08116, then cleans up any existing resources before 
returning to the caller. 


IMGLIB Executor IGCO0O10E: The IMGLIB routine IGCOO10E builds a 
skeleton DCB and DEB for the SYS1.IMAGELIB data set or deletes the 
DCB and DEB for the SYS1.IMAGELIB data set, depending on the 
parameter passed to it in register 1. The routine is entered from the SVC 105 
instruction. ) 


The IMGLIB macro is issued by Open executors and by SETPRT routines 
and can be issued by users. 


The routine operates as follows: 


e It issues an ESTAE macro instruction to establish a TRR, IGCTO10E, to 
intercept abnormal terminations. 


e It makes a test to determine whether the control blocks for IMAGELIB 
need to be built or deleted. If register 1 contains Os, a DCB and DEB are 
built. 


e It uses a GETMAIN macro instruction to obtain a work area and then uses 
a LOCATE macro instruction to determine where the IMAGELIB volume 
is residing. 


e« It takes the address of the UCB table from the CVT and searches for the 
corresponding UCB. 


e It uses the OBTAIN macro instruction to read in the format-1 DSCB and 
uses the information read and the UCB address to construct a skeleton 
DCB and DEB for the SYS1.[MAGELIB volume. The format-1 DSCB 
describes up to three extents. The SYS1.[MAGELIB data set can reside on 
up to 16 extents on a permanently resident volume. 


e If there are more than three extents on SYS1.IMAGELIB, the format-3 
DSCB seek address is obtained from the format-1 DSCB. It uses the 
OBTAIN macro to read in the format-3 DSCB and uses the information 
read and the UCB address to construct additional DEB extent descriptions. 


e If register 1 contains an address when the routine tests to determine 
whether the control blocks for the IMAGELIB volume need to be built or 
deleted, the DCB and DEB for IMAGELIB are to be deleted. 
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e It uses the FREEMAIN macro instruction to delete the control blocks. If 
the DEB is not on the DEB chain or it does not point back to the DCB, a 
169 ABEND is issued. 


e It returns control to the calling routine through a BR 14 instruction. 


Task Recovery Routines 


Task Recovery Routines are designed to minimize overhead in the execution 
of the following SVC routines. 


SVC 
SVC 
SVC 
SVC 
SVC 
SVC 
SVC 


18—-BLDL or FIND 

21—STOW 

24—DEVTYPE 

25—Track Balance, Track Overflow Erase 


68—SYNADAF/SYNADRLS 
69—BSP 
81—SETPRT 


SVC 105—IMGLIB 


Explicit validity checking is not done in SVC routines. Instead, the following 
precautions are taken to ensure system integrity: 


e Perform all read and write access to user-owned storage in the key of the 


caller. 


e Issue an EXCP macro instruction on caller-owned control blocks in the 
key of the caller. 


e Issue a SYNCH macro instruction to reach processing routines whose 
addresses are obtained from the caller’s DCB. 


e SVC routines do not use storage that can be altered by a problem program 
for sensitive data that specifies the location of protected control blocks or 
the location to which control will be passed. Examples are register save 
areas and XCTL lists. 
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A program check occurs when a user error or a deliberate action threatens to 
impair system integrity. To avoid the situation where the user would have to 
relate a program check in an unfamiliar system routine with an error in his 
problem program, each SVC routine has a Task Recovery Routine on its RB 
level. On entry, each SVC routine issues an ESTAE macro instruction to 
establish the Task Recovery Routine that will intercept abnormal 
terminations. 


When a program check occurs the Task Recovery Routine is given control by 
RTM and performs explicit validity checking on the input to the SVC routine 
to determine if a user input error occurred. The Task Recovery Routine can 
thus provide the caller with an error description in terms of the caller’s input 
to the SVC routine. 


Alternatively, the Task Recovery Routine can determine that the ABEND 
was not caused by a user error, but was the result of an environmental 
situation or a system error. In the latter case, the error descriptive information 
can be directed to system data sets, rather than to the problem program user. 


Task Recovery Routine IGCT0018 (SVC 18, BLDL or FIND): Module 
IGCT0018 handles ABENDs arising from the issuance of an SVC 18. 


It operates as follows: 


e It analyzes the type of error and either passes it to the ABEND routine 
unchanged or changes it to its own ABEND and passes it on, or it uses a 
RETRY routine to change it into a user error ABEND code. 


e If asystem error is detected, this routine writes a record to 
SYS1.LOGREC and, if no lower level recovery routine has done so, takes 
a dump to SYS1.DUMP. 


e It cleans up any resources that BLDL acquired. 


Task Recovery Routine Module IGCT0021 (SVC 21, STOW): Module 
IGCT0021 analyzes abnormal terminations that result from issuing the 
STOW SVC. 


The module operates as follows: 
e It determines whether user input or system error caused the termination. 
e It routes information about the ABEND to the appropriate place. 


¢ For a user input error it sends a dump of virtual storage to the SYSABEND 
or the SYSUDUMFP file. 


e For a system error, it notifies the problem programmer via a WIP message 
and a system completion code that an error occurred that terminated his 
task. 


e The corresponding diagnostic information is written to SYS1.DUMP and 
SYS1.LOGREC. 


e It performs any necessary cleanup. 


e It records its actions when an error is detected and analyzed on a lower 
level, or when a machine check occurred and has been processed by the 
machine check handler. 
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Task Recovery Routine IGCT002D (SVC 24, DEVTYPE): Module 
IGCT002D analyzes abnormal terminations that occur as a result of issuing 
the DEVTYPE SVC. 


The module operates as follows: > | 
e It determines whether user input or system error caused the termination. 
e It routes information about the ABEND to the appropriate place. 


e For a user input error it sends a dump of virtual storage to the SYSABEND 
or the SYSUDUMF file. 


e For a system error, it notifies the problem programmer via a WTP message 
and a system completion code that an error occurred that terminated his 
task. 


e The corresponding diagnostic information is written to SYS1.DUMP and 
SYS1.LOGREC. 


e It performs any necessary cleanup. 


e It records its actions when an error is detected and analyzed on a lower 
level, or when a machine check occurred and has been processed by the 
machine check handler. 


Task Recovery Routine IGCT002E (SCV 25, Track Balance, Track Overflow 
Erase): Module IGCTO02E analyzes abnormal terminations that occur as a 
result of issuing SVC 25. 


The module operates as follows: 
e It determines whether user input or system error caused the termination. 
e It routes information about the ABEND to the appropriate place. y 


e For a user input error it sends a dump of virtual storage to the SYSABEND 
or the SYSUDUMF file. 


e For a system error, it notifies the problem programmer via a WIP message 
and a system completion code that an error occurred that terminated his 
task. 


e The corresponding diagnostic information is written to SYS1.DUMP and 
SYS1.LOGREC. 


e It performs any necessary cleanup. 


e It records its actions when an error is detected and analyzed on a lower 
level, or when a machine check occurred and has been processed by the 
machine check handler. 


Task Recovery Routine IGCT006H (SVC 68, SYNADAF/SYNADRLS): 
Module IGCTOO6H determines the type of error that occurred during a 
SYNADAF or SYNADRLS SVC processing. 


The module operates as follows: 


e It requests a retry if SYNADAF attempts to access a control block at an 
invalid or a fetch-protected location. : 


* 


e All other error conditions are percolated after the SYNADAF 
save /message area is freed. If this routine detects a system error it issues 
an SDUMP before freeing the area. 
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e It consists of the following subroutines: 
Environment Error 


If entered from SYNADAF, it goes to the clean-up routine for normal 
processing. 


Otherwise, it tests for an error during FREEMAIN macro instruction 
processing in SYNADRLS. 


If not, the routine next tests for a user error. 


If the error occurred during FREEMAIN processing, it tests for an 
invalid FREEMAIN. 


If so, a SETRP macro instruction is issued to effect a retry. 


The retry routine restores register 13 in the SVRB to the address of the 
attempted FREEMAIN area and returns to the user with 8 in register 0. 


User Error 


Entered if (1) a program check occurred at the SYNADAF level and no 
subordinate ESTAE macro instructions were issued or (2) the 
environment error routine test indicated no FREEMAIN error. 


It tests for a protection exception, request for an invalid page, or 
segment exception. 


If so, it tests to determine if the retry address indicates that the control 
block address supplied by the user is invalid. If so, ABEND is invoked. 


Otherwise, the recovery routine attempts to continue SYNADAF 
processing. If the retry register is not set to zeros, the retry is performed 
by zeroing the retry register and issuing a SETRP macro instruction to 
retry at the address previously in the retry register. 


If any of the user routine tests fail, the error is treated as a SYNADAF 
failure, it is assumed to be a system error, and an SDUMP is invoked. 


SDUMP 


Functions performed are the same as for the User Routine, with the 
following exceptions: 


1. The ABEND code for the SDUMP header is taken from 
SDWACMPC. 


2. The following additional information is logged: 
“ CODE=XXX,RC=NN.” 


3. The WTP message states, ‘“ITEC906I POSSIBLE SYSTEM ERROR 
DETECTED BY SYNADAF. SVC DUMP TRIED, RC=NN.”’ 


4. The ABEND code is not modified. 
Clean-Up 


Records the following information in the LOGREC variable area: 
FLAG, RETRY, EP, USER15, USERO, and USER1. 


SDWAURAL is inspected to avoid overlaying information already in 
the variable area, and is updated. 


It deletes the message CSECT, if loaded, and frees the save /message 
area. 
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Before issuing the FREEMAIN macro instruction, it restores user 
register 13 from the HSA word of the save area being freed. 


It then percolates the ABEND. Jd 


Task Recovery Routiae IGCT0069 (SVC 69, BSP): Module IGCT0069 
analyzes abnormal terminations that occur as a result of issuing the BSP SVC. 


The module operates as follows: 
e It determines whether user input or system error caused the termination. 
e It routes information about the ABEND to the appropriate place. 


e For a user input error it sends a dump of virtual storage to the SYSABEND 
or the SYSUDUMYP file. 


e For a system error, it notifies the problem programmer via a WTP message 
and a system completion code that an error occurred that terminated his 
task. 


e The corresponding diagnostic information is written to SYS1.DUMP and 
SYS1.LOGREC. 


e It performs any necessary cleanup. 


e It records its actions when an error is detected and analyzed on a lower 
level, or when a machine check occurred and has been processed by the 
machine check handler. 


Task Recovery Routine IGCT1081 (SVC 81, SETPRT): Module IGCT1081 
receives control when the RTM (recovery termination manager) detects an 
| abnormal termination during operation of SVC 81. 


The module operates as follows: —) 


e It issues an IGGSTART macro instruction to determine what type of 
processing should be done and to give control for error analysis to the 
appropriate routine. 


e It contains the following routines: 
Resource Cleanup Routine 


Releases or restores resources acquired or altered by the SETPRT 
routines. 

Establishes a second level ESTAE in case a program check occurs 
during cleanup. 


Exit Routine 
Determines the correct way to exit from this module. 


1. Percolate: If entered for resources cleanup, to take an SDUMP, or 
detection of a system error. 


2. Retry to ABEND: If an invalid user control block was found. 
Uses the SETRP macro instruction to exit. 


User Control Block Error Analysis Routine 


Analyzes user control blocks using the Supervisor Validity Check 
routine and the DEBCHK routine. 

Issues a GETMAIN macro instruction for a GTF buffer for tracing 
control blocks. 

If an invalid control block is detected, gives control to the GTF routine; 
otherwise, a system error is assumed. 


SDUMP Routine 


Issues an SDUMP SVC. 
Builds a WIP (write-to-programmer) message if it determines that a 
system error occurred. 


GTRACE Routine 


Moves selected user control blocks to the GTF buffer. 
Issues a GTRACE macro instruction. 
Frees the GTRACE buffer. 


Write-to-Programmer Routine 


Builds a WTP message, if requested. 
Issues a WIP macro instruction. 


Retry Routine 


Issues an ESTAE 0 (to dis-establish the first level ESTAE), restores the 
user’s registers, and issues an ABEND macro instruction. 


Second Level ESTAE Return Routine 


Provides a return address for the second level ESTAE. 
Issues an ESTAE 0 to dis-establish the ESTAE issued by 
the Cleanup routine and then returns to the Cleanup routine. 


e This module also has a second level ESTAE, which is entered if a program 
check occurs in the first level ESTAE or if a CALL RTM is issued. 


For program checks, it issues a SETRP macro instruction to Retry back to 
the second level ESTAE Return routine in the first level ESTAE. 

For a CALL RTM it takes a system dump, issues a WIP macro 
instruction, and percolates to the next level ESTAE. 


Task Recovery Routine IGCTO10E (SVC 105, IMGLIB): Module IGCTO10E 
determines the type of error that occurred during, or is related to, the 
IMGLIB SVC. 


The module operates as follows: 
e It determines if the error type is environmental, user, or system. 


e It decides whether to return to the user, with a completion code, or to 
continue the ABEND. 


GTRACE Record Format Module AMDUSRFE: Module AMDUSRFE 
formats all BSAM, QSAM, BPAM, and BDAM trace records created by the 
GTRACE macro instruction and causes them to be printed by the EDIT 
function of the AMDPRDMP service aid. It receives control from the EDIT 
function and can be used by both ABDUMP/SNAP and EDIT to format the 
user trace records. 
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The module operates as follows: 


When the module receives control, register 1 contains the address of a 
parameter list. It uses the parameter list to find the record to be processed, 
determine how to process it, and decide where to put the processed record. 


It saves the registers in the save area provided by EDIT. 


It moves the generalized block heading, ‘“‘BSAM/QSAM/BPAM/BDAM 
TRACE RECORD DDNAME XXXXXXXX ABEND CODE XXX 
RETURN CODE XX TIME HH.MM.:SS.HT’” into the output buffer area 
provided by EDIT. 


It returns to EDIT with a return code of 0, which requests EDIT to print 
the output buffer area, clear the output buffer area, and return to the 
format module. 


The block heading data is derived as follows: 


DDNAME and RETURN CODE are taken from the data portion of the 
input trace record. The RETURN CODE is converted from binary code 
into printable form. 


ABEND CODE is the translation of EID (EVENT ID) from a two-byte 
code into a three-byte completion code. 


It checks the GTF option word (byte 4, bit 7) to determine if the TIME 
field is present. If the bit is off the TIME field in the block heading is 
left blank. TIME is the local time that the record was put into the trace 
buffer. It is taken from the TIMESTAMP field and is converted into 
printable form. 


It provides a record heading, followed by data lines, for each type of logical 
record traced. 


It uses the ID of the traced record to determine what logical record is in the 
input buffer and then moves in the appropriate record heading. For 
example, if the ID indicates a DCB record (ID=130), the record heading 
moved into the output buffer is ‘DATA CONTROL BLOCK AT 
LOCATION XXXXXXXX.”’ 


It again passes control to EDIT with a return code of zero. 


Upon return from EDIT, it sets up the data lines to be printed. Each line is 
moved into a work area for unpacking and translation into printable 
format. 


It moves the translated data into the output buffer in sets of eight bytes, 
followed by two blank bytes. 


It tests for an end of data condition as the buffer is being filled. 


When the end of data is reached, it restores the registers and exits to EDIT 
with a return code of four, which requests EDIT to print the contents of 
the output buffer and obtain the next input trace record. 


If it is not an end of data, it passes control to EDIT with a return code of 
zero to cause the output buffer to be printed and control returned to the ~ 
formatting module. This continues until all records in the input areaare . 
printed. 


J 
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PROGRAM ORGANIZATION AND FLOW OF CONTROL 


Sequential Access Methods—Overview 


QSAM 


GET 
PUT 
PUTX 
RELSE 
TRUNC 


BUILDRCD 


CNTRL 
PRTOV 


SETPRT 


Get and Put Routines 
See Diagram B 


End-of-Block Routines 
Figures 7,9 & 12 


Synchronizing-and-Error- 
Processing Routines 
See Figures 13, 14 


Buffer-Pool Management 
Routines 
See Figure 28 


QSAM Control Routines 
See Figures 16 and 17 


SAM Routine SETPRT 


Open and Close Executors 


OPEN 


CLOSE 


SAM Open Executors 


2 See Diagram D and Figures 24, 25 & 26 


If OPEN macro instruction is issued for a 
SYSIN or SYSOUT data set, see Diagram K. 


SAM Close Executors 
See Figure 27 


If CLOSE macro instruction is issued for a 
SYSIN or SYSOUT data set, see Diagram L. 


BUILD 
FREEBUF 
FREEPOOL 
GETBUF 
GETPOOL 


BSAM 
READ . . 
WRITE peadiand Write Routines 
See Diagram C and Figure 18 
CHECK pales Routines | 
See Diagram C and Figure 19 
FREEBUF Buffer-Pool Management 
GETBUF Routines 
See Figure 28 
CNTRL 
PRTOV 
NOTE 
POINT BSAM Control Routine 
BSP See Figure 20 
SETPRT 


COMMON ACCESS METHOD ROUTINES 


Buffer-Pool Management Routines 


Buffer Pool Management 
Routines 
See Figure 28 


BPAM 


READ 
WRITE 


CHECK 


FREEBUF 
GETBUF 


BLOL 
STOW 
FIND 


NOTE 
POINT 


Appendages 


1/O Interruption 
via 
Supervisor 


a 


DIAGRAM A 


BPAM Routines 
See Figure 22 


QSAM and BSAM 


Appendages 
See Figure 15 


Program Organization and Flow of Control ‘ 


c 


SS 


QSAM Get and Put Routines 


GET 

RELSE C7> 
PUT 

PUTX 
TRUNC Cop 


The Get routines prepare the next record for the 
program from a block of data obtained from an 
input channel program. The RELSE routines cause 
the present buffer to be scheduled for refilling 

by setting an end-of-block condition. 


List A can be used to select the appropriate module 
selector table for the Get routines. 


Flow of control information for QSAM routines 
is shown in Diagram F. 


If processing is for SYSIN or SYSOUT data sets, 
SAM-SI routines are required. See Diagram M. 


Control blocks used in QSAM are shown in 
the ‘Diagnostic Aids’’ section of this manual. See 
Figure 36, QSAM Control Blocks. 


The Put routines accept records from the program 
and assemble them into a block of data for an out- 
put channel program. A PUTX routine accepts 

an output record from an input data set. 


The TRUNC routines cause the present buffer to 
be scheduled for emptying. 


List A can be used to select the appropriate 
module selector table for the Put routines. 


Flow of control information for QSAM routines 
is shown in Diagram F. 


lf processing is for SYSIN or SYSOUT data sets, 
SAM-SI routines are required. See Diagram M. 


Control blocks used in QSAM are shown in the 
“Diagnostic Aids” section of this manual. See 
Figure 36, QSAM Control Blocks. 


DIAGRAM B 
List A 


Get/ Module Selector 


ff . 
Buffer Technique Put Information 


Simple Buffering — 
Buffers are per- Figure 1 
manently associated Figure 6 
with one DCB 


Update Mode — 
Uses simple buf- 
fering but shares 
the buffer used by Figure 5 
the update mode Figure 7 
Get/PUTX routine 
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BSAM/BPAM Read/Write and Check Routines 


READ/WRITE Coop 


CHECK 


A Read or Write routine completes some of the entries in the channel program 
from parameters in the data event control block (DECB). 


The Read/Write modules are listed in Figure 18. 


For flow of control information for BSAM/BPAM routines, see Figure 22 and 
Diagram G. 


If processing is for SYSIN or SYSOUT data sets, SAM-SI routines are 
required. See Diagram M. 


Control blocks used in BSAM are shown in the ‘’Diagnostic Aids’’ section. 
See Figure 37, BSAM Control Blocks. 


The DECB is examined by a Check routine to determine the status of the 
channel program. 


The Check modules are listed in Figure 19. 


For flow of control information for BSAM/BPAM routines, see Figure 22 and 
Diagram G. 


If processing is for SYSIN or SYSOUT data sets, SAM-SI routines are 
required. See Diagram M. 


Control blocks used in BSAM are shown in the ‘’Diagnostic Aids’’ section. 
See Figure 37, BSAM Control Blocks 


DIAGRAM C 
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Sequential Access Method Open Executors 


Cn — > 


STAGE 1 


These executors validity check 
user-specified parameters, construct 
data extent blocks (DEBs) and 
buffer pools and issue a DEBCHK 
(TYPE=ADD) to maintain the 

DEB table. 


Stage 1 Executors are described 
under ’’Sequential Access 


Method Executors.’’ See Figure 24. 


DIAGRAM D 


Open Routines (A) 


One of the functions performed by the Open 
routines is the merging of control block information. 


During the merge process, Open uses the DSORG 
and MACRF fields to determine the type of DCB 
being opened. 


Open then places entries in the WTG table for those 
access method executors which are required to 
process the DCB. 


If the OPEN macro instruction is issued for a 
SYSIN or SYSOUT data set, job entry subsystem 
(JES) compatibility interface executors are 
required. See Diagram K. 


SAM Open Executors 


STAGE 2 STAGE 3 

These executors identify and 
load the modules needed to 
perform the processing 
described by the DCB. 


These executors construct 
input/output blocks (1OBs) 
and associated channel programs. 


Stage 2 Executors are described 
under ‘‘Sequential Access Method 
Executors.’’ See Figure 25. 


Stage 3 Executors are described 
under “Sequential Access 
Method Executors.”’ 

See Figure 26. 


Open routines are described in OS/VS2 Open/Close/EOV Logic. For information on the WTG and XCTL 
tables, see the ““Access Method Determination” section of the manual. 


Diagram E shows the flow of control among the three stages of Open Executors. 
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QSAM Flow of Control DIAGRAM F 


GET Get or Put Routines ee and ee 
PUT rocessing Routines EOV Routine o) 
PUTX New Buffer Needed @) 
The next 1OB is examined : . 
RELSE User’s SYNAD Routine 
Buffer Ready for to determine status 
TRUNC Scheduling of the channel program 
End-of-Block Routines Track-Overflow 
Control returned to or 3211 
processing program Chained channel program Asynchronous Error 
Normal channel program Processing Routine 
EXCP t 
1/0 1/O Supervisor 


Interruption 


Appendages 


Control received 
from and returned 
to |/O Supervisor 


PCI Exit PC] Appendage 


Channel End Exit Channel End 


| 
| 
L 


Abnormal End Abnormal End 


End-of-Extent Exit 


End-of-Extent 


SIO Exit 
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BSAM/BPAM Flow of Control 


READ 

WRITE (a) Read or Write Routines 
Check Routines 

CHECK 


&) DECB is examined to determine 
status of channel program 


\/O Supervisor 


1/0 Interruption 


PCI Exit 
Channel End Exit 
Abnormal End Exit 


End-of-Extent Exit 


SIO Exit 


DIAGRAM G 


End-of-Block Routines 


Chained channel program 
Normal channel program 


EXCP 


EOV Routines 


User’s SYNAD Routine 


Track-Overflow or 3211 


Asynchronous Error Processing Routine 


Appendages 


Control received 
from and returned 
to 1/O Supervisor 


PCI Appendage 


Channel End 


Abnormal End 


End-of-Extent 
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SAM Flow of Control for Open Executors 


DIAGRAM | 


OA, OUTPUT 


Chained Scheduling 
Ourect-Access 
Storage, INPUT 


Open Routine 
Chained Scheduling 
Write Output Magnenc Tape | cao) pan Wane 
iNOUT, OUTIN Ls 
‘End of String’ Acces Method 
Final intertece 
Initehzeton 
Normal Scheduling 
Records 
INOUT,OUTIN Treck-Overflow 
Direct-Access Storage 
1GGO1912 
oe 
Forms Alignment 4 
FCB image 
Verification 
Open Routine 
wee OCB/JFCR 
ache 


LEGEND 


Create - BDAM 
Normal Program Flow (Werite-Load! 
———-Alternate Program Fiow Treck-Overfiow 


SYSIN/SYSOUT 
Construct CICB 


Create - BDAM 
{Weite-Load! 


1GG0198G 


SYSIN/SYSOUT 
OPEN JES 
Verification 


1GG01970 


Reed-only with 
OMR or ACE 


1GGO199W 


SYSIN/SY SOUT 
Build Butter 
Pool 


1GGO198L 


SYSIN/SYSOUT 
Load 
Processors 


Program Organization and Flow of Control 2: 


a 


QSAM Flow of Control with EOV Routines DIAGRAM H 


Synchronizing and Error EOV Routine (SVC 55) 
Processing Routines 


Control path (S) for permanent 
error condition with SYNAD 
routine present 


Control path (N) for permanent N3(EROPT = ACC, SKP) 
error condition with no SYNAD 
alg eae S8(EROPT = ACC, SKP) EOV Routine 


N3 s8 
(EROPT = ABE) (EROPT = ABE) 


ABEND Routine 
User's SYNAD Routine (c) EOV Routine 
(See OS/VS2 Open/Close/EOV Logic) 


E2 


EOV Routine (SVC 55) EOV Routine of I/O Support 


Synchronizing and Error 
Processing Routines (A) 


E3 


Control path (E) for 
end-of-volume condition 


User’s EOV Exit Routine 


E4 
EOV/New Volume Routine a 


Descriptive information on these routines is located in “Synchronizing and Error Processing Routines.” 
See module selector information in Figures 13 and 14. 


See OS/VS2 Open/Close/EOV Logic. 


The user's SYNAD routine is described in OS/VS Data Management Services Guide. 
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c 


a 
— 


BSAM Flow of Control with EOV Routines DIAGRAM | 


CHECK Routine (A) N1 


Control path (S) for permanent 


EOV Routine (SVC 55) 


Alternate path for chained 
channel-program scheduling 
and purged !O8S. 


routine present 


Control path (N) for permanent 
error condition with no SYNAD 
routine present 


S7a 


ABEND Routine 


IFGO551D 


User's SYNAD Routine (C) SYNAD/Diagnostic Routine 


(See OS/VS2 Open/Close/EOV 
Logic) 


CHECK Routine (A) 
EOV Routine of 


1/O Support 


Control path (E) for EOV Routine (SVC55) 


end-of-volume condition 


EOV/New Volume Routine 
User’s EOV Exit Routine 


Descriptive information on the Check routines is located in the ‘‘Method of Operation” section under 
‘Basic Sequential Access Method Routines.’’ See Figure 19. 


See OS/VS2 Open/Close/EOV Logic. 


The user’s SYNAD routine is described in OS/VS Data Management Services Guide. 
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QSAM Operation with FEOV Routine for Output Data Set (IGC0003A) DIAGRAM J 


End-of-Block Routine 


Put Routines 


FEOV Routine |IGCOQ003A 
(SVC 31) 


ABEND Routine 


Synchronizing and Error 
Processing Routine 


EOV Routine of 
1/O Support 


EOV Routine (SVC 55) 


EOV/New Volume Routine 


Processing Program 


1,2,3,4,5,6,7,8,9,10,16 
1,2,3.4,8,11,13,15,10,12,13,14 


1,2,3,4,5,6,7,8,1 1,13,15,10,12,13,14 
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>) 


Open Processing for SAM Subsystem Interface Executors DIAGRAM K 


OPEN Ca /Y_~—s«(Open Routines (A) 


A request for a SYSIN or SYSOUT data set (*, DATA, or 
SYSOUT specified on the DD staternent) follows the 
spooled DCB sequence through the Open routines. 


When a spooled DCB is identified by the Open routines, 
the ID of the first compatibility interface Open executor 
is placed in the WTG table. 


Stage 1 Executors | Stage 3 Executors 
See Figure 24 | See Figure 26 
IGGO199F 1GGO199G 1GGO199W | IGGO198L 
Builds CICB Constructs an Open Determines buffer Loads the required 
list for an ACB requirements | SAM-SI BSAM/QSAM 


processing routines. 
See Diagram M. 


Initializes ACB fields 
Issues an OPEN 


Sets defaults in DCB (type J) for the ACB 


Initializes the request 


parameter list rer ere 
pdates the 


Verifies DCB fields 


Open Routines (A) 


The Open routines begin processing this request. 
Follow the sequence through the Open routines 
as described for spooled ACB. 


Open routines are described in OS/VS2 Open/Close/EOV Logic. For information on the WTG and XCTL tables, 
see the ‘Access Method Determination” section of the manual. 


The access method control block (ACB) and the request parameter list (RPL) are described in OS/VS2 Data Areas. 
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Close Processing for SAM Subsystem Interface Executors DIAGRAM L 


CLOSE Coco) 


Close Routines @) 


A request to close a SYSIN or SYSOUT data set follows the 
spooled DCB sequence through the Close routines. 


When a spooled DCB is identified by the Close routines, the 


iD of the compatibility interface Close executor is placed 
in the WTG table. 


IGGO201W ~— Cl Close Executor 
(see Figure 27) 


Constructs a Close parameter list for the ACB 
Deletes the Cl processing modules 

Restores DCB fields 

Issues a CLOSE macro instruction for the ACB 


Transfers control to next entry in the WTG table 


Close Routines @) 


The Close routines process the request. Follow the 
sequence through the Close routines as described for 
spooled ACB. 


The Close routines are described in OS/VS2 Open/Close/EOV Logic. 
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SAM Subsystem Interface Flow of Control 


Notes for Diagram M 


Processing program requests translation into GET/PUT for the ACB/RPL that gives control to the Job Entry 
Subsystem. 


Permanent error condition returned by the JES 


End of data condition returned by the JES 
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SAM Subsystem Interface Flow of Control for SYSIN/SYSOUT Data Sets 


READ 
WRITE E26 


CHECK 
(output) 
CNTRL 


CHECK 
(input) c=> 


IGGO19DJ = SAM-SI QSAM Processing 
Module 


GET, PUT, PUTX routines (Figure 1, Figure 6) 


RELSE, TRUNC, CNTRL routines perform 
no operation 


IGGO19AQ QOSAM Synchronizing 
Module 


Issues EOV (SVC 55) at end of data 
(Figure 13) 


1GGO19DK SAM-SI BSAM Processing 
Module 


Read/Write routines (Figure 18) 
Check routine (for SYSOUT) (Figure 19) 


CNTRL routine performs no operation 


1GGO19BB  BSAM Check Module 


Issues EOV (SVC 55) at end of data 
(Figure 19) 


DIAGRAM M 


Job Entry Subsystem 
Data Management Routines 


(Described in OS/VS2 JES2 Logic) 


IGGO19AH SAM-SI Error Processing 
Module 


Issues O01 ABEND (SVC 13) if no SYNAD 
routine or if EROPT=ABE (Figure 14) 


User's SYNAD Routine 


(Described in OS/VS Data Management 
Services Guide) 
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Force Close Processing DIAGRAM N 


ABNORMAL IFGORROB O/C/EOV Force Close 


CLOSE a> Executor Interface 


Abnormal condition detected. DCBs must 
is be closed. 


SYSIN/SYSOUT data set? 


YES 


1GG0O20T 1 Force Close Executor 


IGGO20FC SAM-SI Force Close 
Executor User’s DCB copy not modified: 
SAM/PAM 
Frees logical record area 
Frees buffer pool 
Frees l|OBs and ICBs and channel 
program space 
Frees segment work area 
Deletes message CSECT 
Closes SYS1. IMAGELIB 
Deletes UCS/FCB images 


Locates CICB 
CICB not located 


Issues CLOSE for ACB in CICB 


Frees VS record area 


Deletes processing modules for DCB 


BDAM 
Frees buffers 
Frees unscheduled list 
Frees segment work area 
Frees READX list 


Frees CICB storage 


Returns control to calling routine 


User's DCB copy modified: 
Attempts normal close 


Error not in Open processing: 
Returns to common close 
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SYNADAF Flow of Processing DIAGRAM O 


& 


IGCOOO06H 


EXCP 
BISAM 
BDAM 
1GCO506H IGCO206H ">>>. _ |G CO906H 1GCO306H 
(No 1OB) 
QISAM 


OCR 


1GC0O106H IGCO606H IGCO406H 
Unit Check Unit Check SYNADAF Input Parameters 
on Other on 3211 
Devices 
Access + Reg. 
Method Code 0 
EXCP 00 
1GCO706H 1GCO806H BPAM 01 


BSAM 02 
QSAM 03 


BDAM 04 
BISAM 05 
QISAM 06 
BTAM 07 
QTAM 08 
GAM 09 
TCAM 


*High-order byte, Reg. 15 
( All routines can return to user. 
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DIRECTORY 


Module CSECT SVC Logic Manual Module 
Name Module Type Name Entry Reference Description (Page) 
AMDUSRFE GTRACE Format AMDUSRFE 205 
Appendage 
IECBBFB1 Build Module IECBBFB1 Figure 28 179 
IECQBFGI1 GETPOOL Module IECQBFGI1 Figure 28 178 
IFG0559C Problem IFG0559C 183 
a Determination Module 
IGCT0018 Task Recovery IGCTO018 201 
Routine Module 
IGCT002D Task Recovery IGCT002D 202 
Routine Module 
IGCTOO2E Task Recovery IGCTO02E 202 
Routine Module 
IGCT0021 Task Recovery IGCT0021 201 
Routine Module 
IGCT0O06H Task Recovery IGCT006H 202 
Routine Module 
IGCT0069 Task Recovery IGCT0069 204 
Routine Module 
IGCTOIOE Task Recovery IGCTOI10E 205 
Routine Module 
IGCT1081 Task Recovery IGCT1081 204 
Routine Module 
IGC0002A STOW Module IGC0002A 21 Figure 22 188 
IGC0002D DEVTYPE Module IGC0002D 24 185 
IGC0002E Control Module IGC0002E 25 186 
IGC0006H SYNADAF Module IGC0006H 68 192 
IGCO0006I Control Module IGCO0006I 69 187 
IGCO0008A SETPRT Routine IGCOQ008A 81 197 
IGC0010C Translate Routine IGC0010C 103 See Appendix A 
IGCO010E IMGLIB Routine IGCO010E 105 185 
IGC0106H SYNADAF Module IGC0106H 193 
IGCO18 Resident Module IGC018 18 Figure 22 190 
IECPCNVT 191 
IECPRLTV 192 
IECOSCR1 192 
IGC0206H SYNADAF Module IGC0206H 194 
IGC0306H SYNADAF Module IGC0306H 194 
IGC0406H SYNADAF Module IGC0406H 195 
IGC0506H SYNADAF Module IGC0506H 195 
IGC0606H SYNADAF Module IGC0606H 195 
IGC0706H SYNADAF Module IGC0706H 196 
I1GC0806H SYNADAF Module IGC0806H 196 
IGC0906H SYNADAF Module IGC0906H 196 
IGGOI9SAA Get Module IGGOI9AA Figure | 19 
IGG019AB Get Module IGGO19AB Figure 1 20 
IGGOI9AC “Get Module IGG019AC Figure 1 21 
IGGO1I9AD Get Module IGGO19AD Figure | 22 
IGGO19AE Get Module IGGO19AE Figure 5 29 
IGGO19AF Synchronizing Module IGGO19AF Figure 13 79 
IGG019AG Get Module I1GG019AG Figure 1 23 
IGG019AH Error-Processing IGG019AH Figure 14 84 
Module 
IGGOI9AI Put Module IGGOI9AI Figure 6 43 
IGGOI9AJ Put Module IGGO19AJ Figure 6 43 
IGGO19AK Put Module IGGO19AK Figure 6 44 
IGGO19AL Put Module IGGO19AL Figure 6 45 
1GG019AM Get Module 1GG019AM Figure 1,2 23 
IGGO1SAN Get Module IGG019AN Figure 1,2 24 
IGG019AQ Synchronizing Module IGG019AQ Figure 13 81 
IGGO19AR Synchronizing Module IGGOI19AR Figure 13 82 


Module 
Name 


IGGO19AT 
IGGO19AV 
IGGO19AW 
IGGO19AX 
IGGO19BA 
IGG019BB 
IGGO019BC 
IGG019BD 
IGGO19BE 
IGGO19BF 
IGG019BG 
IGG019BH 
IGG019BI 
IGGO19BK 
IGGO19BL 
IGG019BM 
IGGO19BN 
IGG019BO 
IGGO19BP 
IGG019BQ 
IGGO19BR 
IGGO19BS 
IGGO19BV 
IGGO19BT 
IGGO19BU 
IGG019B0 
IGGOIXCA 
IGGO19CB 
IGG019CC 
IGGO19CD 
IGGO19CE 
IGGO19CF 
IGG019CG 
IGG019CH 
IGGO19CI 


IGG019CJ 


IGGO19CL 
IGG019CM 
IGG019CN 
1GG019CO. 
IGGO19CP 
IGG019CQ 
IGG019CR 
IGG019CS 
IGGO19CT 
IGG019CU 
IGG019CV 
IGGO19CW 
IGG019CX 
IGGO19CY 
IGG019CZ 
IGG019CO 


IGG019C1 


IGG019C2 
IGG019C3 


Module Type 


Get Module 

Open Executor 
End-of-Extent Appendage 
Save Module 
Read/Write Module 
Check Module 

Control Module 

Control Module 

Control Module 

Read Module 

Check Module 
Read/Write Module 
Check Module 

Control Module 

Control Module 
End-of-Extent Appendage 
Get Update Module 

Get Module 

Put Module 
Synchronizing Module 
Write Module 

Check Module 

Channel End Appendage 
Channel End Appendage 
Read Module 
BUILDRCD Routine 
Control Module 

Control Module 

EOB Module 

EOB Module 

EOB Module 

EOB Module 

SIO Appendage 
End-of-Extent Appendage 
Channel-End and 
Abnormal-End 
Appendage 

Channel-End and 
Abnormal-End 
Appendage 

SIO Appendage 

Code Conversion Module 
Code Conversion Module 
Code Conversion 

Code Conversion Module 
Code Conversion Module 
Code Conversion Module 
Channel-End Appendage 
EOB Module 

Appendage 

EOV Module 

EOB Module 

EOB Module 

EOB Module 
End-of-Extent Appendage 
Channel-End and 
Abnormal-End 
Appendage 
Asynchronous Error 
Processing Module 

EOB Module 
Channel-End and 
Abnormal-End 
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CSECT 
Name 


IGGO19AT 
IGGO19AV 
IGGO19AW 
IGG019AX 
IGG019BA 
IGG019BB 
IGG019BC 
IGG019BD 
IGGO19BE 
IGGO19BF 
IGG019BG 
1GG019BH 
IGGO019BI 
IGG019BK 
IGGO19BL 
1GG019BM 
IGG019BN 
IGG019BO 
IGG019BP 
IGG019BQ 
IGGO19BR 
IGG019BS 
IGG019BV 
IGG019BT 
IGG019BU 
IGG019B0 
IGGO19CA 
IGGO19CB 
IGG019CC 
IGG019CD 
IGG019CE 
IGG019CF 
1GG019CG 
IGG019CH 
IGG019C1 


IGG019CJ 


IGG019CL 
IGG019CM 
IGG019CN 
IGG019CO 
IGGO19CP 
IGG019CQ 
IGGO19CR 
IGGO019CS 
IGGO19CT 
IGG019CU 
IGGO19CV 
IGGO19CW 
IGGO19CX 
IGGO19CY 
IGGO19CZ 
1GG019C0 


IGG019C1 


IGG019C2 
IGG019C3 


SVC 


Logic Manual 
Reference 


Figure 1,13 


Figure 15 
Figure 7,9,12 
Figure 18 
Figure 19 
Figure 20 
Figure 20 
Figure 20 
Figure 18 
Figure 19 
Figure 18 
Figure 19 
Figure 20 
Figure 20 
Figure 15 
Figure 5 
Figure 1 
Figure 6 
Figure 13 
Figure 18 
Figure 19 
Figure 15 
Figure 15 
Figure 18 
Figure 28 
Figure 16,21 
Figure 16,21 
Figure 7 
Figure 7 
Figure 7 
Figure 7 
Figure 15 
Figure 15 
Figure 15 


Figure 15 


Figure 15 


See Appendix A 
See Appendix A 
See Appendix A 
See Appendix A 
See Appendix A 
See Appendix A 


Figure 15 
Figure 7,12 
Figure 15 
Figure 9 
Figure 9 
Figure 9 
Figure 9 
Figure 15 
Figure 15 


Figure 14 


Figure 12 
Figure 15 


94 


75 
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Module 
Name 


IGGO19C4 
IGGOIIDA 
1GGO019DB 
IGGO1YDC 
IGGOISDD 
IGGOI9DS 


IGGOISDK 


IGGOL9EI 


IGGOI9EJ 


IGGOI9SFA 
IGGO019FB 
IGGOISFD 
IGGO19SFF 
IGGOISFG 
IGGOIL9FJ 

IGGOISFK 
IGGOISFL 
IGGOI9FP 
IGGOI9FQ 
IGGOL9SFR 


IGGOLIFS 


IGGOISFU 
IGGO19ID 


IGGO19TC 
IGGOL9TD 
IGGOL9TV 
IGGO19TW 
IGGOIL9T2 
IGGOI9T4 


[IGGO19V6 
IGGOISIA 
IGGO0191B 
IGGO19IC 
1IGG0191D 
IGGOISIG 
[IGGOI91H 
IGGON9II 

IGGOILYTJ 

IGGOI9STK 
IGGOI9IL 
IGGOI9IM 
IGGOI9YIN 
IGGOI9SIO 
IGGO191P 
IGGO191Q 
IGGOISIR 
IGGOISIS 

IKGGO1ISTT 
IGGOISTU 
IGGOl9iVv 


Module Type 


Appendage 
End-of-Extent Appendage 
Write Module 
Write Module 
Check Module 
Write Module 

Get Module 

Put Module 
Read/Write 
Module 

Check Module 
Channel-End and 
Abnormal End 
Appendage 
Channel-End and 
Abnormal-End 
Appendage 
Control Module 
Get Module 

Get Module 

Get Module 

Put Module 

Put Module 

EOB Module 

Put Module 
Channel-End Appendage 
EQOB Module 
Abnormal-End 
Appendage 
Asynchronous 
Error-Processing Module 
EOB Module 
Parallel Input 
Processing Module 
EOB Module 

EOB Module 

EOB Module 

EOB Module 

EOB Module 

TS Put Routine 


Appendage 

Stage | Open Executor 
Stage | Open Executor 
Stage | Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage | Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage | Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage | Open Executor 
Stage 1] Open Fxecutor 
Stage 1 Open Frecutor 


CSECT 


Name 


IGGOISCA 
IGGOISDA 
IGGOI9DB 
IGGOI9DC 
IGGOISDD 
IGGOI9DJ 


IGGOI9DK 


IGGOI9SE] 


IGGOI9ES 


IGGOI9FA 
IGGO19FB 
IGGOI9FD 
IGGO19FF 
IGGOI9FG 
IGGOI9FJ 

IGGOI9FK 
IGGOI9FL 
IGGOI9FP 
IGGO19FQ 
IGGOI9FR 


IGGOI9FS 


IGGOI9FU 
1GG019JD 


IGGOISTC 
IGGOISTD 
IGGOI9STV 
IGGO19TW 
IGGO19T2 
IGGOI9T4 


1IGG019V6 
IGGOL9IA 
IGGOI9IB 
IGGOI9IC 
IGG0191D 
IGGO191G 
IGGO191H 
IGGOI1911 
IGGO191J 
IGGOISIK 
IGGOISIL 
1GG0191M 
IGGOISIN 
IGGO01910 
IGGO19IP 
IGGOI91IQ 
IGGOISIR 
IGGOI9IS 
IGGO191T 
IGGOl1U 
IGGOIY9YTY 


SVC 
Entry 


Logic Manual 
Reference 


Figure 18 
Figure 18 
Figure 18 
Figure 19 
Figure 18 
Figure | 

Figure 6 

Figure 18 


Figure 19 
Figure 1$ 


Figure 15 


Figure 16.20 
Figure | 
Figure | 
Figure | 
Figure 6 
Figure 6 
Figure 7 
Figure 6 
Figure 1S 
Figure 7 
Figure 1S 


Figure 14 


Figure 7 


Figure 7 
Figure 7 
Figure 9 
Figure 9 
Figure 12 
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Figure 27 
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Figure 24 
Figure 24 
Figure 2S 
Figure 25 
Figure 25 
Figure 24 
Figure 28 
Figure 28 
Figure 28 
Figure 25 
Figure 24 
Figure 25 
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Figure 28 
Figure 24 
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Figure 24 
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119 
120 
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48 
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127 
102 


104 


76 


172 
108 
137 
139 
139 
150 
1S] 
ISI 
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154 
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1S4 
154 
155 
1S6 
157 
141 
142 
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Module 
Name 


IGGOI91W 
IGGOI91X 
IGGOIILTY 
IGGOI91IZ 
IGGO1910 
IGGOI911 
IGGOI912 
IGGO1913 
IGGOI9IS 
IGGOI9I6 
IGGOI917 
IGGOI9IR 
IGGOI919 
IGGO1923 
IGG01926 
IGGO1931 
IGGOI96A 
1GG0196B 
IGGOL961 
IGGOW6K 
IGGO196L 
1GGO196P 
1GGi0196Q 
IGGOL96R 
1GGO0O196S 


IGGOI97TE 
IGGO1974- 
IGiGO197L 
1GGOl97TM 
IGiGO19YTN 
IGGO197P 
IGGOI97Q 
IGGO19Y7U 
IGGO197V 
IGGOI98L 
IGsGO199F 
IGGO199G 
IGGO199K 
IGGOI99L 
IGGOLI9O 
IGGOT9OW 
MsGO199] 
1sGO01992 
1GGO01993 
IGGO1994 
IGGO20EC 


1GG020T1 


IGG020LA 
1GGO201B 
1G;Gi0201P 
IGGO201R 
IGGO201W 
WGO201N 
WSGO201TY 
IGGO20)7 
IGGiw21AB 
IGGO210A 
1GrGiOx 10] 
I1G5G08 102 
[GGOxXx 103 


Module Type 


Stage 2 Open Executor 
Stage 2 Open Executor 
Stage | Open Executor 
Stage 2 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 2 Open Executor 
Stage 3 Open Executor 
Stage | Open Executor 
Stage | Open Executor 
Stage 1 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage | Open Executor 
Stage | Open Executor 
Stage 2 TS Module 


Stage | Open Executor 
Stage | Open Executor 
Stage | Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage | Open Executor 
Stage | Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 2 Open Executor 
Stage 2 Open Executor 
Stage 3 Open Executor 
Stage | Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Executor 
Stage 3 Open Fxecutor 
SAM-SI Force Close 
Executor 


SAM/PAM/DAM Force 


Close Executor 
Close Executor 
Close Executor 
Close Executor 
Close Executor 
Close Executor 
Close Executor 
Close Executor 
Close Executor 
STOW Module 
STOW Module 
SFTPRIT Routine 
SETPRT Routine 
SETPRT Routine 


240 OS/NVS2 SAM Logic 


CSECT 
Name 


IGGOI9IW 
IGGOI91X 
IGGOI9S1TY 
IGGO191Z 
1IGGO1910 
IGGOI911 
IGGOI912 
1IGG01913 
IGGOI9I5 
IGGO1916 
IGGO1917 
IGGO1918 
IGGO1919 
1GG01923 
IGG01926 
1GG01931 


IGGO196A | 


1GG0196B 
1IGGO196I 

1GG0196K 
1GG0196L 
1GG0196P 
IGG0196Q 
IGGO196R 
1GG0196S 


IGGOISTE 
IGGO0197F 
{GGOlI97L 
1GGO0O197M 
IGGO197N 
IGGO197P 
1GG0197Q 
IGGO197U 
IGG0197V 
IGGOI98L 
IGGO199F 
IGG0199G 
IGGOI99K 
IGGO199L 
IGGOI99O 
IGGO199W 
IGGO1991 
1IGGO01992 
IGG01993 
IGG01994 
1IGGO20FC 


IGGO20T 1 


IGGO0201A 
1GG0201B 
IGGO201P 
IGGO20IR 
IGGO0201W 
IGGO201X 
IGGO201Y 
IGGO2012 
1(GG021AB 
IGGO210A 
IGGO8It01 

1GGO8102 

IGGO8 103 


Logic Manual 


Reference 


Figure 25 
Figure 25 
Figure 24 
Figure 25 
Figure 26 
Figure 26 
Figure 26 
Figure 26 
Figure 26 
Figure 26 
Figure 26 
Figure 26 
Figure 26 
Figure 25 
Figure 26 
Figure 24 
Figure 24 
Figure 24 
Figure 24 
Figure 25 
Figure 25 
Figure 25 
Figure 24 
Figure 24 
See OS/VS 


TCAM Logic 


Figure 24 
Figure 24 
Figure 24 
Figure 24 
Figure 25 
Figure 25 
Figure 25 
Figure 24 
Figure 25 
Figure 26 
Figure 24 
Figure 24 
Figure 25 
Figure 25 
Figure 25 
Figure 24 
Figure 26 
Figure 26 
Figure 26 
Figure 26 
Diagram N 


Diagram N 


Figure 27 
Figure 27 
Figure 27 
Figure 27 
Figure 27 
Figure 27 
Figure 27 
Figure 27 
Figure 22 
Figure 22 
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157 
158 
143 
159 
164 
164 
166 
166 
167 
167 
168 
168 
169 
1S9 
169 
143 
144 
144 
145 
159 
159 
160 
145 
145 


145 
145 
146 
146 
160 
161 
161 
147 
16] 
169 
147 
147 
161 
162 
164 
148 
170 
170 
171 
171 
177 


177 


172 
173 
174 
174 
175 
175 
176 
176 
1%) 
189 
198 
198 
199 


Module 
Name 


IGG08 104 
1GG08108 
1GG08110 
IGG08111 
1GG08112 
IGG08113 
AGG08114 
IGG08115 
“1GG08116 
1GG08117 


Module Type 


SETPRT Routine 

SETDEV Routine 
SETPRT Executor 
SETPRT Executor 
SETPRT Executor 
SETPRT Executor 
SETPRT Executor 
SETPRT Executor 
SETPRT Executor 
SETPRT Executor 


CSECT 
Name 


1GG08104 
1GG08108 
1GG08110 
1GG08111 
1GG08112 
1GG08113 
1GG08114 
1GG08115 
1GG08116 
1GG08117 


SVC 
Entry 


Logic Manual 


Reference 


Figure 34.1 
Figure 34.1 
Figure 34.1 
Figure 34.1 
Figure 34.1 
Figure 34.1 
Figure 34.1 
Figure 34.1 


Page of SY26-3832-1 
As Updated 30 Nov 1979 
By TNL SN26-0956 


Module 
Description (Page) 


200 
200 
200 
200 


The modules of OPEN, CLOSE, STOW and SYNADAF are link edited into 
SYS1.LPALIB during system generation by macro, SCIEC4DI, according to 
the following table. Each CSECT is a separate module in the distribution 

library and in microfiche. For Open and Close each CSECT name is also an 


alias for the load module. 
CSECTs 


Load Module 
IGGO191A 


1GG01911 


IGG0191D 


IGG0201Z 


IGC0002A 
IGC0006H 


1GG0191A, 1IGG0191B, IGGO1911, IGGO191IN, IGGO19IT, 
1GG0191U, IGGO191V, IGGO191Y, IGG01931, IGGO196A, 
1GG0196B, 1GG0196I, IGG0197E, IGG0197F, IGG0197U 


1GG0191C, IGG0191H, IGG0191K, IGG0191Q, IGGO191R, 
1GG0191S, 1IGGO191W, IGGO191X, IGG01911, IGG01916, 
1GG01918, 1GG01919, IGG01926, IGG0199K, 1GG01992, 


1GG01994 


1GG0191D, IGG0191G, IGG0191J, IGG01910, IGGO191P, 
1GG0191Z, 1GG01910, 1GGO1912, IGG01915, 1GG01917, 
1GG01923, IGG0196K, IGG0196L, IGG0196P, IGG01990, 


1GG01991, IGG01993 


IGG0201A, 1GG0201B, 1GG0201X, IGG0201Y, 1GG0201Z 


1GC0002A, I1GG021AB, IGG0210A 


IGC0006H, IGC01016H, IGC0206H, IGC0306H, IGC0406H, 
IGC0506H, IGC0606H, IGC0706H, IGC0806H, I1GG0906H 


Directory 241 


c 


DATA AREAS 


Message CSECT—IGGMSG 


The message CSECT contains messages for SAM, PAM, and DAM. It is 
divided into two parts. The first part is the index, the second part contains the 


Offset 
Index 


0(0) 
2(2) 
4(4) 


n(n) 


message. 
Length 


2 
2 
Z 


2 


Name 


MSGINDLN 
MSGINDOF 
MSGIND2 


MSGINDN 


Description 


Length of index 

Offset to message entry for first message 
Offset to message entry for second 
message 

Offset to message entry for nth message 


There are two forms of the message entry, with variables and no-variable. 


Message Entry—Variable 


0(0) 
1(1) 


2(2) 


3(3) 
n(n) 


n+1(n+1)1 


1 
1 


1 


1 
1 


MSGOFF 
MSGLNG 


MSGOFF!1 


MSGOFF2 


MSGOFFN 
MSGTXT 


Offset to message from beginning of entry 
Length of message -1 (to allow use in 
execution of a move) 

Offset to first variable filled in by the 
routine that extracts the message and 
causes it to be printed 

Offset to second variable 

Offset to nth variable 

Message text 


No-variable messages such as those used in SYNADAF 


0(0) 
1(1) 


| 
] 


MSGLNGF 
MSGTXTF 


Length of message text 
Message text 


Data Areas 243 
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SETPRT Work Area (SPW)—IGGSPW 


The SETPRT work area is used by the SETPRT executors, and is located 
(when the SETPRT executors are in control) at the address contained in 
register 4 (which is in user-key virtual storage). 


Length 


Offset 
0(0) 
1(1) 
2(2) 


3(3) 
4(4) 


5(5) 


6(6) 


7(7) 


l 
1 


i 
1... 
.XXX 


1 


XXX. 


XXXX 


XXXX 


Name 
SPWOPTSA 
SPWPARMI 
SPWFLGI 
SPWVRFCB 
SPWALIGN 
SPWFLG2 


SPWFLG3 
SPW120RQ 


SPWFLG4 
SPWFCBDE 
SPWECPAM 


SPWFLG8 
SPWRETRY 
SPWVREND 
SPWNOMOV 
SPWFCBOP 


Reserved 


WTOR Prefix, Message Section, and Reply Area—in User Key 
Length 


244 OS/VS2 SAM Logic 


Offset 
8(8) 
8(8) 
8(8) 
9(9) 
12(C) 
16(10) 
16(10) 
80(50) 
80(50) 
81(51) 


96(60) 
100(64) 


104(68) 
104(68) 
108(6C) 
108(6C) 


8 
4 
1 


PN 


> £ co oO 


Name 
SPWMSGHD 
SPWRPLYA 
SPWMSGLB 
SPWRPLYB 
SPWECBPA 
SPWMSGAR 
SPWMSGTX 
SPWREPLY 


SPWFCBOR 
SPWREPC1 


SPWRPECB 
SPWREPID 


SPWFCBIM 
SPWUCSIM 
SPWUCS2H 
SPWFCB2H 


Description 
Save area for the opcode byte 
Saved reply flags 


Reply flags: 
Verify FCB 

Reserved 
Align forms 


Module entry indicator 


Flags: 
Message IEC120 is required 
Reserved 


Flag byte: 
FCB image is loaded and must be deleted 
EXCP DCB with access method 
section is present 

Reserved 


Flag byte: 
Retry in progress 
Last verify line is printing 
Do not move requested message 
Fill FCBOP as well as FCBID into the 
UCB 
Reserved 


Description 

Header section for message area 
Data about the reply area 
Length of the reply area 
Address of the reply area 
Address of the reply ECB 

SPW message area 

Message text 

Operator reply 

Reserved 


Start of operator reply 


Reply ECB for WTOR 

UCS/FCB ID supplied by the operator 
reply 

Name of the FCB image 

Name of the UCS image 

Last 4 bytes of UCS name 

Last 4 bytes of FCB name 
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| IOB For EXCP Users and OPEN—in User Key 


c Offset Length Name 
| 112(70) 40 SPWIOB 
Information saved from user’s IOB 
152(98) 4 SPWFLGSV 


| . 156(9C) 4 SPWTRSV 


Channel Program Area—in User Key 


Offset Length Name 

160(A0) 8 SPWCCW!1 
| 168(A8) 8 SPWCCW2 

176(BO) 8 SPWCCW3 


Work Area For Unpacking Line Numbers—in User Key 


Offset Length Name 
184(B8) 4 SPWUNPKA 
188(BC) 2 

190(BE) 2 SPWLNENO 


General Work Area—in User Key 


Offset Length Name 

192(CO) 4 SPWFFSB 

196(C4) 4 SPWMSGID 

200(C8) 64 SPWUBLDL 
Yd 

204(CC) 60 SPWULOAD 


BLDL Work Area—SPW5 


Description 
IOB area 


IOB first word save area 


IOBSTART save area 


Description 
First CCW 
Second CCW 
Third CCW 


Description 

Unpack area 

Unused bytes 

Used by CONVERT instruction 


Description 
Sense bytes 0-3 from the 3800 printer 
Message ID for DOM 


BLDL parameter list for user image 
library 


LOAD parameter list for user image 
library 


The BLDL work area is used by the SETPRT executors and is located (when 
the SETPRT executors are in control) at the address contained in register 8. 


The BLDL work area is in key 5. 


Offset Length Name 

0(0) 64 SPWBLDLA 

0(0) 4 SPWBLDLC 

4(4) 8 SPWDDNAM 
SPWBLNAM 

8(8) 4 SPWBLFCB 

12(C) 52 

64(40) 4 SPWWKADR 


Description 
BLDL list area 
Count and length fields 


DD name for SYSOUT request 
BLDL name field 


Load module ID for BLDL 
Reserved 


Address of the SETPRT work area (in 
user key) 


Data Areas 244.1 
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Message Area for the SETPRT Work Area—Key 5 
Offset Length 


68(44) 8 
76(4C) = 100 


176(BO) 4 
180(B4) 8 


Name 


SPWMSGHS 
SPWMLIST 


SPWMSGA 
SPWMTXT 


SPWMRECB 
SPWIMAGE 


3800 Printer Subsystem Area for the SETPRT Work Area—Key 5 


Offset Length 
188(BC) 4 
192(CO) 4 


196(C4) 
200(C8) 
204(CC) 1 


- N 


205(CD) 3 
208(DO) 1 


209(D1) 1 


210(D2) 1 


211(D3) 1 
212(D4) 4 
212(D4) 1 
213(D5) 1 
214(D6) 1 
215(D7) 1 


244.2 OS/VS2 SAM Logic 


Name 
SPWSPRB 
SPWSOADD 


SPWSOLEN 
SPWTWAD1 
SPWTWSPI1 


SPWTWLNI1 


SPWFLAGI1 
SPWT3800 
SPWFCBUA 
SPWENDXL 
SPWEXFLD 
SPWEXWPR 
SPWENDM 
SPWEFCBP 
SPWM128L 


SPWFLAG2 
SPWRVMSG 
SPWVMHD 
SPWVMCH 
SPWBLIOB 
SPWM163L 
SPWM164L 
SPWNSTOR 
SPWNESOI 


SPWFLAG3 
SPWPLCPY 


SPWIMGLD 


SPWGRAFO 
SPWGRAFI1 
SPWGRAF2 
SPWGRAF3 


SPWRSNCD 
SPWRSNO 
SPWRSN1 
SPWRSN2 


SPWRSN3 
SPWREASN 


Description 


Header section for message area 
Error message parameter list for 
IGG08116 


SPW message area 
Message buffer for IGG08116 


Reply ECB for WTOR 


Name of the image requested 


Description 
Address of the SVRB extended save area 


Address of the SYSOUT work area for 
IGG08117 


Length of the SYSOUT work area 
Address of the translate table work area 


Translate table work area subpool 
number 


Translate table work area length 


Flag byte 1: 
The SETPRT is for a 3800 
The FCB is in the user area 
End of DCB exit list 
EXCP for FCB load 
EXCP for writing FCB verify 
End section in message area 
End of FCB verify printout 
Message IEC 128D in message area 


Flag byte 2: 
Reissue verify message to 3800 
Header section in message area 
‘Channel’ is in message area 
Build a dummy IOB 
Message IEC163A is being issued 
Message IEC164A is being issued 
SPWN has been stored 
Not enough space is 
available to open SYS1.IMAGELIB 


Flag byte 3: 
The SETPRT parameter list 
has been copied from the user's area to 


the key 5 work area 

Image loaded into storage 

Unused 

WCGM 0O has been GCM modified 
WCGM 1 has been GCM modified 
WCGM 2 has been GCM modified 
WCGM 3 has been GCM modified 


Unused 

Reason code * 
Byte 0 of the reason code 

Byte 1 of the reason code 

Byte 2 of the reason code 


Byte 3 of the reason code 


Offset 


216(D8) 
216(D8) 
217(D9) 
218(DA) 
219(DB) 
220(DC) 
224(E0) 
226(E2) 
228(E4) 
232(E8) 
234(EA) 
235(EB) 
236(EC) 
237(ED) 
238(EE) 
239( EF) 
240(F0) 
242(F2) 


243(F3) 
244(F4) 


248(F8) 
252(FC) 


272(110) 
273(111) 
274(112) 
275(113) 
276(114) 
278(116) 
280(118) 
284(11C) 
288(120) 
292(124) 
296(128) 
297(129) 
298(12A) 
300(12C) 
304(130) 
316(13C) 
376(178) 
448(1C0) 
456(1C8) 


Length 


20 


Y 


a2 42 Lh SF N 


56 


Name 


SPWRETCD 
SPWRETO 
SPWRET1 
SPWRET2 
SPWRET3 
SPWIOBST 
SPWLNCNT 
SPWFCBIL 
SPWCAVTA 
SPWWKBTS 
SPWI 

SPW]J 

SPWK 
SPWL 
SPWM 
SPWN 
SPWP 
SPWMAX 


SPWTCBKY 


SPWWCGMS 
SPWIOREC 


SPWCGMID 


SPWMEXIT(n) 


SPWMEIND 
SPWERIND 
SPWRXIND 


SPWPLENG 


SPWADDCB 
SPWADDEB 
SPWADIOB 
SPWADUCB 
SPWCFHIT 
SPWCFB 


SPWSAVE 
SPWRSAVE 
SWPFLINU 
SPWSPP 
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Description 

Return code 

Byte 0 of the return code 

Byte 1 of the return code 

Byte 2 of the return code 

Byte 3 of the return code 

Address of the IOB standard section 
FCB image line counter 

Length of the FCB image 

Address of the caller’s AVT 

Work bytes used to test flags 

Total number of translate tables 
Translate table index 

Index of the CGM in the translate tables 
Work index 

Index in the CGM record 

Index in the CGM record 

Translate table position index 


Number of CGMss installed on the 
printer 


TCB key 


Load WCGM data 
Execute control data 


Character set IDs 


Five 4-byte areas that contain the 
SETPRT modules exit list addresses 


Index for module exit list 

Error index for module exit list 
Retransmit index for module exit list 
Unused 

Length of the SETPRT parameter list 
Unused 

Address of the caller’s DCB 
Address of the caller’s DEB 

Address of the IOB prefix section 
Address of the UCB 

FCB half-inch counter 

FCB current index for verify 
Unused 

Unused 

Unused 

SETPRT register save area 
Compiler register save area 

FCB image line number 


Copy of the user SPP to key 5 


Data Areas 244.3 
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Offset 


512(200) 
513(201) 
516(204) 
517(205) 
520(208) 


Error Message Communication Area—User-Provided Area 


Length 


20 


Name 


SPWUKSN 


SPWUKLTH 


SPWKS5SN 


SPWK5LTH 
SPWMODWK 


Description 

Subpool number of work area in user key 2 
Length of user key work area i 
Subpool number of work area in key 5 

Length of key 5 work area 


Compiler work area for autodata 


The error message feedback area is provided by the caller of SETPRT and is 
pointed to by the SETPRT parameter list field (SPPEMSGA). 


Offset 
0(0) 
2(2) 
4(4) 
6(6) 
8(8) 
10(A) 


SVRB Extended Save Area—Key 0 


Length 


2 
2 
2 
2 
2 


* 


Name 
SPWMCLEN 
SPWRSV02 
SPWRSV04 
SPWTXTL 
SPWRSV08 
SPWTXT 


Description 

Total length of area 
Reserved 

Reserved 

Length of text returned 
Reserved 


Formatted text (variable length) 


The SVRB extended save area is used by the SETPRT ESTAE routine. 


Offset 
0(0) 
4(4) 


8(8) 


12(C) 
13(D) 


14(E) 

15(F) 

16(10) 
20(14) 
24(18) 
28(1C) 
32(20) 
32(20) 
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Length 
4 

1 

1 

Les 

of 

A 

eee Wee 

XXXX 

1 

1 

4 

4 

4 

4 

16 

8 


Name 
SPRMSG 
SPRIDCBA 


SPREXIT 
SPRREGI3 


SPRKEY 


SPRINDIC 
SPRCNTRL 
SPRTRCNS 
SPRUSLIB 
SPRSYSOT 


SPRNIOBS 


SPRBLDLA 
SPRIOBSV 
SPRDCBBG 
SPRGETMN 
SPRELIST 
SPRTRACE 


Description 
Address of the message CSECT 


J 


Address of the image library data set's 
DCB 


Exit prolog 
Save area for register 13 


User key 


Flag byte: 
Control block routine entered 
GETMAIN unsuccessful 
User-specified image library 
SETPRT for SYSOUT data set 
Unused 


Number of IOBs 

Unused 

Address of the BLDL list 

Address of the IOB altered by IGCOOO8A 
Beginning address of the DCB 

Address of the GTRACE buffer 

ESTAE list 

GTRACE list 


c 


Offset 
0(0) 


0(0) 
0(0) 
4(4) 
6(6) 
8(8) 
8(8) 
264(108) 
264(108) 


272(110) 


Offset 
0(0) 


Offset 
0(0) 


0(0) 
1(1) 
4(4) 


5(5) 
6(6) 
8(8) 


8(8) 
9(9) 
12(C) 


3800 Printing Subsystem Translate Table Entry—in key 5 


Length 
288 


8 
4 
2 
2 
280 
256 


24 
8 


16 


One Entry of an FCB Image for a 3800 Printing Subsystem 


Length 


nnnn 


Buffer Pool Control Block—IGGBCB 


Length 


hw 


Name 


SPWTT 


SPWTTHDR 
SPWTTID 


SPWXLAT 
SPWTRANS 
SPWTRAIL 
SPWTRL1 


SPWGRAF(n) 


Name 


SPWFCBIE 


SPWFCBLP 


Name 


BCBBUFPT 


BCBBUFAD 
BCBFLGS 
BCBLRI 
BCBEXTND 
BCBBUFNO 
BCBBUFSZ 
BCBLRIAR 


BCBLRIAD 
BCBPAD 
BCBNLN 
BCBEXLN 
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Description 


Translate table, pointed to by 
SPWTWAD1 (in the SETPRT work 
area ) 


Translate table header 

Translate table ID 

Reserved 

Length of character arrangement table 
Translate table and trailer 

256-byte translate table 

Trailer 


Four 2-byte entries for character set 
identifier and loading order 


Four 4byte entries for graphic character 
modification module names 


Description 


FCB byte for 3800 

Reserved—set to zeros 

Lines-per-inch bits 

6 lines per inch 

8 lines per inch 

12 lines per inch 

Channel number 1 to 12, in hexadecimal 
code 


Description 


Address of the first buffer (same as 
BCBBUFAD below) 

Filler 

Address of first buffer 

Flag byte 

Logical record interface present 
BUFCB extended area present 
Number of buffers 

Size of each buffer 

Address of logical record area (same as 
BCBLRIAD below) 

Filler 

Address of logical record area 

Padding for doubleword alignment 
Length of normal BCB 

Length of extension (add to BCBNLN to 
get total length if BCB is extended) 


Users Logical Record Interface Area for SAM Data Sets 


0(0) 
0(0) 


0(0) 


1(1) 
4(4) 


LRILOC 
LRILGTH 


LRIFLG1 
LRIEOD 
LRICOB 
LRIEOB 
LRILNGTH 
LRIFLAG2 


LRI location 

Length of LRI area—LRECL+32 (same 
as LRILNGTH below) 

Flags 

End-of-data reached 

COBOL data set 

EOD after first end-of-block 

Length of LRI Area—LRECL+32 
Flags 
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Offset Length 


5(5) 

6(6) 

8(8) 

8(8) b) 
13(D) 3 
1610) 4 
16(10) l 
1711) 3 
20(14) 2 
22(16) 32 
2418) 8 
24(18) 1 


Parameter List—IGGPARML 


This DSECT expands the parameter list passed to the open/close executors 
from common open/close. 
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Offset Length 


0(0) 4 

0(0) l 
Reseecuee 

CLOSE Options 


a 


on —: 


Name 


LRIRELSE 
LRISEG 
LRINTSPN 
LRIASSEM 
LRIINDEX 
LRIPOS 
LRITRKAD 


LRIMBBCC 


LRIRECAD 


LRINIOB 


LRINXIOB 


LRICOUNT 


LRIALIGN 
LRIDATA 


Name 
PARDCBAD 


PAROPT 
PARENLST 


PARREWND 
PARLEAVE 


Description 


Release issued 

Segmenting is in process 
Non-spanned record 

Assembling is in process 

Index to beginning of data 

Position of record in block 

Track address of beginning record 
segment 

MBBCC of track address (not used if 
DCB is for output) 

Record address when record to be 
written requires segmentation 

Next IOB address (same as LRINXIOB 
below) 

Filler 

Next IOB address 

Count field of number of bytes moved 
Filler 

Floating alignment area 

Data 


Description 

Address of DCB being opened/closed 
(same as PARDCBAB below) 
OPEN/CLOSE options 

End of list 


REWIND 
LEAVE 


Offset Length 


OPEN Options 


1(1) 3 


SAM OPEN/CLOSE Work Area—IGGSCW 


Name 


PARFREE 
PARRREAD 


PAROUTPT 
PAROUTIN 
PARUPDAT 
PARINOUT 
PARRDBCK 
PARINPUT 

PARDCBAB 


Description 
Unallocate during CLOSE 
REREAD 


Output 

Outin 

Update 

Inout 

Readback 

Input 

Address of DCB being open/closed 


This DSECT maps against the O/C/EOV work area fields 
DXCCW1-DXCCW12. The purpose of the DSECT is to give meaningful 
equates to these fields when used by the Open and Close Executors. The 
comments for each label indicate whether the field is used by the Open 
Executors (-O) or the Close Executors (-C). 


Offset Length 


368(170) 
368(170) 
368(170) 
368(170) 
368(170) 
368(170) 
369(171) 
369(171) 
372(174) 
372(174) 
374(176) 
376(178) 
376(178) 
376(178) 
408(198) 
408(198) 
416(1A8) 
416(1A8) 
424(1B0) 
424(1B0) 
432(1B8) 
432(1B8) 
432(1B8) 
432(1B8) 
433(1B9) 
433(1B9) 
434(1BA) 


—— — —= CO — CF COCO fF COCO HR HR ONN AWW =| =| = 2 hE OO 


437(1BB) 
438(1BC) 
442(1C0) 
442(1C0) 
442(1C0) 
442(1C0) 


— = 00 co fh = 


443(1C1) 
444(1C2) 
445(1C3) 
446(1C4) 
450(1C8) 
450(1C8) 


& oO f =| = = 


Name 
DXCCwl 
DXBLDL 
SCWGETMA 
DXCCWOP 
SCWSAVCD 
DXUCSUCB 
DXCCWADR 
SCWGETMB 
DXBLDLIM 
DXCCWFLG 
DXCCWBYT 
DXCCW2 
DXIMGNAM 
SCWRALL 
DXCCW6 
DXSAVUCS 
DXCCwWw8 
DXIMGDCB 
DXCCW9 
DXSAVFCB 
DXCCW10 
DXFCBUCS 
DXFCBP 
DXFCBSW1 
DXABEND 
DXFLAG!1 
DXSTAGE2 


DXFCBOPT 
DXFCBID 
DXCCW11 
DXUCSP 
DXUCSSW1 
DXABRETC 


DXEROPT 
DXNABEND 
DXUCSOPT 
DXUCSID 
DXCCW12 
SCWXCTLP 


Description 


BLDL parameter list -O 
Register save area for QSAM routines -C 
CCW OP code -O 

Problem Determination Code -C 
UCB UCS options -O 

Buffer address -O 

(Same as SCWGETMA) -C 
Image name for BLDL -O 

CCW flags -O 

CCW byte count -O 


Image name -O 
Save area for all registers -C 


Area to save UCS name -O 
Address of SYS1.IMAGELIB DCB -O 
Area to save FCB name -O 


UCS and FCB parameter fields -O 

To clear FCB parameter field -O 
Switch for FCB parameters -O 
Indicates DMABCOND to be issued -O 
FCB flag byte -O 

Indicates next executor is a stage 2 
executor -O 

JFCB FCB options -O 

FCB image identification -O 


Parameter list for UCS -O 
Switch for UCS parameters -O 
Internal return code for Problem 
Determination -O 

To save DCBEROPT -O 
Indicate ABEND in control -O 
JFCB UCS options -O 

UCS image identification -O 


Supervisor parameter list for XCTL-O/C 
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Offset Length Name 

0(0) = SPDBFR 
0(0) 9 SPDHDR 
0(0) 8 SPDDDNAM 
8(8) 1 SPDABCCD 
9(9) > SPDTRACE 
9(9) : SPDTRRCD 
9(9) 2 SPDRCDHD 
9(9) 1 SPDRCDLN 
10(A) 1 SPDBLKID 
11(B) * SPDDATAI 
11(B) 4 SPDBLKAD 
15(F) : SPDDATA2 


Description 

SPD Buffer input record 
Buffer header 
DD name from TIOT 2 
ABEND condition code 

Trace record area (variable - maximum 
length is 247 bytes) 

Trace record 

Trace record header 

Trace record length 

ID of trace record 

Block to be traced (ne block address 
present) 

Address of block to be traced (not 
present for block with ID less than 127) 
Block to be traced (block address 
present) 


*Depends on the length of the block to be traced (maximum block length is 245 bytes including the block 


address, if present). 


STOW Work Area—IGGSTW 
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Description 


Address of user-supplied entry name 

(lower of two for change) 

Address of higher of two user-supplied 

names (change only) 

Reserved . 
Offset to add, replace, or delete location wd 
in low block 

Name of entry being deleted 

Name of new entry 

Relative address of member 

Alias bit, number of TTRNs, and length 

of user data 

This member name is an alias 


User data for entry 


First flag byte bit 

definitions 

Reserved 

Change function (used in combination 
with STWADD and STWDEL) 
Delete function 

Replace function 

Add function 

Dry run being made on directory 
Used to control program flow 

Last DCB operation was a WRITE 


This DSECT maps the work area used by the STOW modules. 
Offset Length Name 
Pointers and User Data Save Area 
0(0) 4 STWPARM 
4(4) 4 STWHIGH 
8(8) 2 
10(A) 2 STWOFFLW 
12(C) 8 STWOLDNM 
20(14) 8 STWNEWNM 
28(1C) 3 STWTTR 
31(1F) 1 STWCTTRN 
1 STWALIAS 
32(20) 62 STWDATA 
Flag, Condition, and Switch Bytes 
94(5E) 1 STWFLAGI1 
sal 
1 STWCHNG 
1 STWDEL 
1 STWREPL 
1 STWADD 
1 STWDRYRN 
1 STWFLOW 
1 STWDCBWR 
95(5F) 1 STWRTN 


Control Blocks for STOW Channel Programs 
96(60) 4 


Event Control Block 
100(64) 4 ECBRB 


Return code save area 


If already on adoubleword gotothe , 
next fullword boundry 


RB (request block) address while waiting 


for event ) 


Offset Length 
100(64) 1 
| 
111 1111 
= emer | 
1. 2.1 
oe el 
1.. .1 
1.. 1 
aU bess 
1.. 1.11 
wl. 11271 
101(65) 3 
101(65) 3 
Prefix Sections of the IOB 
88(58) 8 
88(58) 8 
88(58) 8 
88(58) 8 
88(58) 1 
1... 
ms ee 
me le 
1... 
w1.. 
ee Ais 
ore | 
89(59) 1 
90(5A) 1 
91(5B) 1 
92(5C) 4 
96(60) 4 
100(64) 4 
QSAM BSAM BPAM Prefix 
96(60) 8 
96(60) 8 
96(60) 8 
96(60) 4 
96(60) 1 


Name 


ECBCC 
ECBWAIT 
ECBPOST 
ECBNORM 


ECBPERR 


ECBDAEA 
ECBABEND 


ECBINCPT 


ECBREPRG 


ECBHALT 
ECBERPAB 


ECBERPER 


ECBRBA 


ECBCCCNT 


IOBPREFX 
IOBQSAMC 
IOBBSAMC 
IOBBPAMC 
IOBCFLG! 
IOBRSV01 
IOBRSVO02 
IOBRSV03 
IOBRSV04 
IOBPTST 
IOBABAPP 


IOBRSTCH 
IOBPCI 
IOBRSV05 
IOBCINOP 


IOBCONOP 


IOBCECB 
IOBCICB 
IOBCNOPA 


IOBQSAMN 
IOBBSAMN 
IOBBPAMN 
IOBNIOBA 
IOBNFLG1 
IOBPRTOV 
IOBWRITE 


Description 


Completion code byte 

Waiting for completion of event 

Event completed 

Channel program terminated without 
error 

Channel program terminated with 
permanent errors or for BTAM 
completed with an I/O error 

Channel program terminated because a 
direct access extent address was violated 
I/O ABEND condition occurred for 
error transient loading task 

Channel program intercepted because of 
permanent error associated with device 
end for previous request; the intercepted 
request can be re-initiated. 

Request element for channel program 
made available after it has been purged 
Enable command halted 

Abnormal completion of ERP processing 
because of a critical error such as the 
presence of invalid control block fields 
Error recovery routines entered because 
of direct access error are unable to read 
home address of record 0 

Request block address (while awaiting 
completion of an event) 

Zeroes or remainder of completion code 
(after completion of the event) 


Prefix sections 

QSAM/BSAM/BPAM prefix 
Chained scheduling 

16 bytes 

Flag byte 

Reserved 

Reserved 

Reserved 

Reserved 

NOTE or POINT operation in process 
Error processed once by abnormal-end 
appendage 

Restart channel 

PCI interrupt has occurred 

Reserved 

Offset of last I/O command for input 
operation (NOP CCW) from the ICB 
origin 

Offset of last I/O command for output 
operation (NOP CCW) from the ICB 
origin 

Event control block 

Address of first ICB on queue 
Address of NOP command at end of 
queue 


QSAM/BSAM/BPAM prefix 
Normal scheduling 

8 bytes 

Address of next IOB on chain 
Flag byte 

PRTOV occurred 

WRITE operation in process 
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Standard Section of the IOB 


97(61) 3 
100(64) 4 
104(68) 8 
104(68) 1 
105(69) 1 
106(6A) 1 
107(6B) 1 
108(6C) 4 


Name 


IOBREAD 
IOBUPDAT 
IOBBKSPC 


IOBSPAN 
IOBUPERR 
IOBFIRST 
IOBNIOBB 
IOBNECB 


IOBSTDRD 


IOBFLAG1 
IOBDATCH 
IOBCMDCH 


IOBERRTN 
IOBRPSTN 
IOBCYCCK 


IOBFCREX 


IOBIOERR 
IOBUNREL 
IOBSPSVC 


IOBFLAG2 
IOBHALT 


IOBSENSE 


IOBPURGE 
IOBRDHAO 


IOBALTTR 


IOBSKUPD 


IOBSTATO 


IOBPNCH 


IOBSENSO 
IOBSOBO 
IOBSOB1 
IOBSOB2 
IOBSOB3 
IOBSOB4 
IOBSOB5 
IOBSOB6 
IOBSOB7 
IOBSNSC9 
IOBSENS|1 
IOBS1B0 
IOBS1B1 
IOBS1B2 
IOBS1B3 
IOBS1B4 
IOBS1B5 
IOBS1B6 
IOBS1B7 
IOBECBPT 


Description 

READ operation in process 

Block is to be updated 

IOB is being used for BSP CTRL 
NOTE/POINT 

Spanned record 

Update channel program has been split 
First IOB on chain 

Address of the next IOB on the chain 
Event control block address 


Flag byte 

Data chaining used in channel program 
Command chaining used in channel 
program 

Error routine is in control 

Device is to be repositioned 

Cyclic redundancy check needed (tape 
only) 

FETCH command retry exit (direct 
access only) 

I/O error has occurred 

I/O request is unrelated (non-sequential) 
SAM/PAM flag set by SVC if I/O 
appendage should not process interrupt 
Flag byte 

HALT I/O issued by SVC PURGE 
routine 

Issue SENSE command after device end 
occurs 

IOB purged—allow I/O to quiesce 
Home address to be read—no seek 
needed 

No test for out-of-extent—alternate track 
in use 

Seek address is being updated—cylinder 
end or file mask violation has occurred 
Device end status OR-ed with channel 
end status—graphics device 

Turned on by QSAM when error 
recovery is to be provided for the 2540 
Card Punch 

First sense byte 

Bit 0 (device dependent) 

Bit 1 (device dependent) 

Bit 2 (device dependent) 

Bit 3 (device dependent) 

Bit 4 (device dependent) 

Bit 5 (device dependent) 

Bit 6 (device dependent) 

Bit 7 (device dependent) 

Channel 9 sensed in carriage tape 
Second sense byte 

Bit 0 (device dependent) 

Bit 1 (device dependent) 

Bit 2 (device dependent) 

Bit 3 (device dependent) 

Bit 4 (device dependent) 

Bit 5 (device dependent) 

Bit 6 (device dependent) 

Bit 7 (device dependent) 

Address of ECB to be posted upon 
completion of I/O 


J 


» 


Offset Length Name 
108(6C) 1 IOBECBCC 
109(6D) 3 IOBECBPB 
112(70) 1 IOBFLAG3 
IOBCCC 
IOBICC 
IOBCDC 
IOBACU 
IOBCNC 
IOBMSG 
IOBICL 
IOBLOG 
113(71) 7 IOBCSW 
113(71) 3 IOBCMDA 
116(74) 2 IOBSTBYT 
118(76) 2 
120(78) 4 IOBSTART 
120(78) 1 IOBSIOCC 
121(79) 3 IOBSTRTB 
124(7C) 4 IOBDCBPT 
124(7C) 1 IOBFLAG4 
IOBGDPOL 
IOBRSV38 
IOBRSV39 
IOBRSV40 
IOBRSV41 
IOBRSV42 
IOBRSV43 
IOBRSV44 
125(7D) 3 IOBDCBPB 
128(80) 4 IOBRESTR 
128(80) 1 IOBREPOS 
129(81) 3 IOBRSTRB 
132(84) 2 IOBINCAM 
132(84) 1 IOBCRDCC 
133(85) 1 IOBCRILC 
134(86) 2 IOBERRCT 
Direct Access Extension Section of the IOB 
136(88) 1 IOBM 
137(89) 2 IOBBD 
137(89) 1 IOBBB1 
138(8A) 1 IOBBB2 
139(8B) 2 IOBCC 
139(8B) 1 IOBCC!1 
140(8C) 1 IOBCC2 
141(8D) 2 IOBHH 
141(8D) 1 IOBHH1 
142(8E) 1 IOBHH2 
143(8F) 1 IOBR 
STOW Channel Programs 
144(90) 8 STWINCP 
144(90) 8 STWSRCHI1 
152(98) 8 STWTIC11 
160(A0) 8 STWRDCTI1 
168(A8) 1 STWSRKY1 


Page of SY26-3832-1 
As Updated March 30, 1979 
By TNL SN26-0934 


Description 

Completion code for current I/O request 
Address of ECB to be posted upon 
completion of I/O 

Error routine flag byte 

Channel control check error count 
Interface control check error count 
Channel data check error 
Attention/control unit error 

Chain check error 

Message flag 

Incorrect length error 

Log-out flag 

Seven low-order bytes of CSW at 
channel end 

Command address (3890) 

Status bits 32-47 (3890) 

Last two bytes of IOBCSW 

Address of channel program 

Bits 2 and 3 = condition code from SIO 
Address of channel program 
Address of data control block for this 
IOB 

Flag byte 

Re-enter SIO appendage for OLTEP 
guaranteed device path 

Reserved 

Reserved 

Reserved 

Reserved 

Reserved 


- Reserved 


Reserved 

Address of data control block for this 
IOB 

Restart address for error retry 

Code used to reposition device 

Restart address for error retry 

Value used to increment block count on 
tape 

Optical reader—data check error count 
Optical reader—Incorrect Length error 
count 

Count of error retries 


Relative extent number for this request 
(0-15) 
Bin number (data cell) 


Cylinder number 


Track number 


Record number 


Channel program to read the initial two 


. directory blocks 


Search ID equal 

Transfer control to search ID 
Read count 

Search on key equal or high 
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169(A9) 
172(AC) 
176(BO) 
184(B8) 
192(CO) 
200(C8) 


200(C8) 
201(C9) 
204(CC) 
208(D0) 
216(D8) 
217(D9) 
220(DC) 


221(DD) 
224(E0) 
225(E1) 
228(E4) 
232(E8) 
233(E9) 
236(EC) 
240(F0) 
244(F4) 


STOW Input/Output Buffers 


—= wm 60 hh WwW = 


3 
1 
3 
4 
1 
3 
4 
4 


4 


STWKYAD1 


STWTIC12 
STWRDATI1 
STWRCKD1 
STWWRDCP 


STWSRCH2 
STWIDAD2 


STWTIC2 
STWWRKD1 
STWWRAD2 
STWWFLG2 
STWCMDCH 


STWRCKD2 
STWRDAD2 


STWRCKD3 
STWRDAD3 
STWRDFL3 
STWRCKD4 
STWRDFL4 


(For details see Buffer DSECT below) 


248(F8) 


276 


524(20C) 276 


800(320) 


276 


1076(434) 276 


1352(548) 8 
Map of STOW Input/Output Buffers 


0(0) 8 
0(0) 5 
5(5) 3 
8(8) 8 
16(10) 256 
16(10) 2 
18(12) 254 
272(110) 4 
SVRB Extended Save Area 
0(0) 4 
4(4) 4 
8(8) 16 


STWBUF1 


STWBUF2 


STWBUF3 
STWBUF4 


STWEND 


BUFCNT 


BUFCCHHR 
BUFKDD 
BUFKEY 
BUFDATA 
BUFN 


BUFENTRY 
BUFADDR 


XSAREG4 
XSASTWWA 
XSAESTAE 


SYNADAF General Registers Save Area and Message Buffer 


Area—IGGSYN 
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Offset 


0(0) 
0(0) 
4(4) 
8(8) 
12(C) 
72(48) 
80(50) 


pane te eo TS 


Key address 

Flags and byte count . 
Transfer control to read count 2 
Read data 

Read count key data 

Channel program to write and read 
directory blocks 

Search ID equal 

ID address 

Flags and byte count 

Transfer control to search ID 
Write key and data 

Write address 

Flags 

Command chain to next CCW 
Byte count 

Read count key data 

Read Address 

Flags and byte count 

Read count key data 

Read address 

Flags and byte count 

Read count, key, data 

Flags and byte count 


Initially contains the first of two 

directory blocks read 

Initially contains the second of two 

directory blocks read 

Initially used as the first output buffer 

Temporarily used as first input buffer for | 
EXCP. J 
End of work area 


Count field containing absolute disk 
address 

CCHHR field 

Key and data length 

Key field (highest member name) 
Data Area 

Number of bytes used in this directory 
block 

Directory entries 

Used to chain buffers 


Save area for register 14 
Address of STOW work area 
List form of the ESTAE macro 
instruction. 


Description Fs 

Save area 

Used by PL/1 language program 

Address of previous save area 

Address of next save area | 
General register save area a 
Length field for variable-length records 

Data Area 


Description 

Return information if read error 
Number of bytes read 
Work area 

Error type indicator 
Access method input code 
Unused 

Work Area 

Work area number 1 
Work area number 2 
Unused 

Work area 

Blank 

Comma 

Job name 

Comma 

Step name 

Comma 

Unit address 

Comma 

Device type 

Comma 

DD name 

Comma 

Operation attempted 
Comma 

Error description 

Comma 

Area to unpack JCB seek address 
Unused—Magnetic tape 


Area to unpack block count for magnetic 


tape 

Unpack value 

Sign byte in unpack format 
Comma 

Access method type 

Blank 

Parameter register Save area 
Parameter register save area 
End of IGGSYN 


Return address 

XCTL parameter list 

Address of the entry point name 

List of parameters 

Address of the DCB 

Entry point name 

Load module ID 

Flags for TCB PURGE and ASYNCH 
Exit address not specified 

Parameter list address not specified 
TCB not specified 

Flags 

Reserved 

ESTAE routine flag word 

Return from GETMAIN without error 
Save areas chained successfully 
Message CSECT loaded 

Caller’s save area restored successfully 
ESTAE routine entered 

User key 


Offset Length Name 
80(50) 4 SYNRDERR 
84(54) 2 SYNBYTRD 
86(56) 35 SYNWAREA 
86(56) 1 SYNPURG 
86(56) 1 SYNACMTH 
87(57) 1 
88(58) 8 SYNWRKA 
88(58) 4 SYNWKAI1 
92(5C) 4 SYNWKA2 
96(60) 4 
100(64) 20 SYNWORK 
120(78) 1 SYNSTART 
121(79) 1 SYNCMMAI 
122(7A) 8 SYNJOBNM 
130(82) 1 SYNCMMA2 
131(83) 8 SYNSTPNM 
139(8B) 1 SYNCMMA3 
140(8C) 3 SYNUNTID 
143(8F) 1 SYNCMMA4 
144(90) 2 SYNDVTYP 
146(92) 1 SYNCMMAS 
147(93) 8 SYNDDNM 
155(9B) 1 SYNCMMA6 
156(9C) 6 SYNOPRTN 
162(A2) 1 SYNCMMA7 
163(A3) 15 SYNERROR 
178(B2) 1 SYNCMMA8 
179(B3) 14 SYNPOS 
179(B3) 7 SYNPOSM1 
186(BA) 7 SYNPOSM2 
186(BA) 6 SYNPOSMV 
192(CO) 1 SYNPOSMS 
193(C1) 1 SYNCMMA9 
193(C2) 5 SYNACCSS 
199(C7) 1 SYNBLNK2 
200(C8) 4 SYNPRMRI1 
204(CC) 4 SYNPRMR2 
208(D0) 4 SYNEND 
SYNADAF and SYNADRLS SVRB Extended Save Area 
160(A0) 4 SYNRETA 
164(A4) 16 SYNXCTPL 
164(A4) 4 SYNXCTEP 
168(A8) 12 SYNXCTLT 
168(A8) 4 SYNXCTDB 
172(AC) 8 SYNXCTNM 
176(BO) 1 SYNXCTID 
180(B4) 1 SYNESTPL 
181(B5) 3 
184(B8) 4 
188(BC) 4 
192(CO) 1 
193(C1) 3 
196(C4) 4 SYNESFLG 

Ls SYNGTM 

fy Ie SYNCSA 

SYNMLC 

eS: ooakee SYNRCS 

doen: *Ahzs SYNESTAE 
198(C6) 1 SYNURKEY 
199(C7) 9 SYNUNPKA 


Work area for unpack 
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SETPRT Parameter List—ITHASPP 


Offset Length 
0(0) 1 
1(1) 3 
4(4) 4 
8(8) l 
.O.. 
- oer 
X.XX XXXX 
9(9) | 
...O 
veh. Aa 
XXX. XXXX 
10(A) 1 
10.. 
01.. 
..10 
..O1 
10.. 
01.. 
1oX; 
wel 
11(B) 4 
15(F) 1 
0... 
| ee 
XXX XXX. 
...O 


From this offset on, the fields 


16(10) l 
0... 
if 
Oe 
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Name 


SPPDCBB 
SPPUCS 
SPPLDMOD 


SPPVERFY 


SPPFDUNF 
SPPFBLK 

SPPFUBLK 
SPPSCHED 
SPPNOSCD 


SPPUNFLD 
SPPFOLD 


SPPEXTL 


SPPFCB 


SPPVERAL 


Description 


Unused 
DCB address 
UCS module ID (not used for 3800) 
Flag byte describing UCS load mode 
(not used for 3800) 
Load mode=no fold 
Load mode=fold 
Unused 
Flag byte describing UCS verify (not 
used for 3800) 
No verification for UCS 
UCS verification requested 
Unused 
Flag byte: 
Block data checks 
Unblock data checks 
Schedule SYSOUT data set segment 
for printing now 
Do not schedule SYSOUT segment 
for immediate printing 
Unfold 3203 or 3211 UCS 
Fold 3203 or 3211 UCS 
Unused 
SETPRT parameter list is at least 48 
bytes long 
FCB module ID or address of in-storage 
FCB module (see SPPFLAGZ2) 
FCB flag byte: 
No FCB image verification requested 
Print FCB image for verification 
Unused 
No forms alignment requested (not 
used for 3800) 
Issue WTOR for forms alignment 
(not used for 3800) 


apply only to the IBM 3800 Printing Subsystem. 


SPPFLAGI 
SPPBURST 
SPPBURST 
SPPREX 


SPPINIT 
SPPNOMSG 
SPPBFREQ 
SPPBTREQ 
SPPBOMSG 


SPPFORC 


Flag byte number 1: 
Thread continuous forms stack 
Thread burster-trimmer-stacker 
Retransmission - only change 
COPIES, FLASH, and starting copy 
number 
Issue initialize printer CCW 
Suppress error messages on the 
printer 
Bypass forms overlay WTOR 
Bypass threading change WTOR 
Bypass WCGM’s exceeded error 
message 
JES force load of the FCB 


UU 


Offset 
17(11) 


18(12) 
19(13) 


20(14) 
22(16) 


23(17) 


24(18) 
28(1C) 
32(20) 
36(24) 
40(28) 
44(2C) 
48(30) 


52(34) 


Length 


KX 


Name 


SPPFLAG2 


SPPCPYNR 
SPPSTCNR 


SPPLEN 
SPPFRMNR 


SPPTRC 


SPPMODPT 


SPPIMAGE 


SPPXLAT 1 


SPPXLAT2 


SPPXLAT3 


SPPXLAT4 


SPPEMSGA 


SPPLIDCB 
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Description 


Flag byte number 2: 
Copy modification, if specified, is a 
module ID. 
Copy modification is specified as an 
address. 
Character arrangement table 0 if 
specified is a module ID. 
Character arrangement table 0 is 
specified as an address. 
Character arrangement table 1] if 
specified is a module ID. 
Character arrangement table 1 is 
specified as an address. 
Character arrangement table 2 if 
specified is a module ID. 
Character arrangement table 2 is 
specified as an address. 
Character arrangement table 3 if 
specified is a module ID. 
Character arrangement table 3 is 
specified as an address. 
FCB if specified is a module ID. 
FCB is specified as an address. 
Unused bits. 
The number of copies to be printed. 
The copy number of the first copy to be 
printed. 
Length of the parameter list. 
The number of copies to be forms 
flashed, starting with the first printed 
copy. 
The character arrangement table to be 
selected when the specified copy 
modification record is loaded in the 
printer. 
The module ID or in-storage address of 
the copy modification module. 
The identifier for the forms overlay 
frame. 
The module ID or in-storage address of 
character arrangement table module 0. 
The module ID or in-storage address of 
character arrangement table module 1. 
The module ID or in-storage address of 
character arrangement table module 2. 
The module ID or in-storage address of 
character arrangement table module 3. 
Address of the message communication 
area for error information. 
Address of the library DCB for 3800 load 
modules. 


Data Areas 254.1] 


Access Method Save Area for User Totaling 


The access method save area for user totaling is pointed to by the address in 
bytes 5-7 in the EXCP access method, BSAM, or QSAM-dependent section 
of the DEB. 


Access method save routine address 


Current image area address 
First image area address 


Address of last image area for volume 
Register 


save 
area 


First image area” J 


Last image area 3 


‘The size of this save area includes the space used by image areas. 


2This field is adjusted by the End-of-Volume routine so that it points to the 


image area containing the user’s total for the last record written on the volume. 


SThe image areas are all the same size, that is, the length of the user‘s totaling 
area rounded to the nearest half-word. 


Figure 35. Access Method Save Area for User Totaling 


254.2 OS/VS2 SAM Logic 


DIAGNOSTIC AIDS 


& Open and Close Executor Problem Determination 


QSAM Control Blocks 


For information on tracing module and data flow during execution of the 
Open and Close executors that issue the IECRES macro, see “Problem 
Determination” in OS/VS2 Open/Close/EOV Logic. Note that the access 
method executors do not have transfer control tables like common Open and 
Close modules do. 


Figure 36 shows the control blocks used in QSAM. Through the data control 
block (DCB), the QSAM routines associate the data being processed with the 
processing program. Fields in the DCB point to the start of a buffer, the end 
of a buffer, and an input/output block (IOB). These fields are updated as 
successive channel programs are executed. Each IOB points at the next IOB 
and at a channel program (CP), and carries an event control block (ECB) 
that the I/O supervisor posts after the channel program has been executed. 


DCB 


os 
NEXT 1OB RECAD 


ECB 


—_ 


BUFFER POOL 


NEXT 1OB 


~ 
l 
l 
| 
ae Beau 


Legend: 
Address Values: 
O Entered by the OPEN executor. 
1 Updated by the synchronizing routine. 
2 Updated by the GET or PUT routine. 


— —— Successive Address Values 


Figure 36. QSAM Contiol Blocks 


“yt 
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BSAM Control Blocks 
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Figure 37 shows the control blocks used in BSAM and their stages of 
completion. Stage 0 shows the state of the control blocks before any READ 
or WRITE macro instruction. Stage 1 shows the effect of the READ or 
WRITE macro instruction, that is, the values supplied by the processing 
program in the data event control block (DECB). Finally, stage 2 shows the 
effect of the Read or Write routine having tied together these control blocks. 


Before any READ or WRITE macro instruction, the data control block 
(DCB) points to the first input/output block (IOB). This IOB points back to 
the DCB, to the next IOB, and to the channel program (CP). The READ or 
WRITE macro instruction identifies the DCB and the buffer to be read into 
or written out. Finally, the Read or Write routine connects the DECB with 
the current IOB, inserts the address of the ECB (which is located in the 
DECB) into the IOB, and points the channel program to the buffer. 
Successive macro instructions cause updating of the IOB address in the DCB 
and insert address values in the next DECB, IOB, and channel program. 


BUFFER 
eae, 


BUFFER 


BUFFER 


Legend: 
Address Values 


O Entered by the OPEN Executor. 

1 Provided by the processing program. 

2 Completed by the READ or WRITE routine. 
-~-- Successive Address Values. 


Figure 37. BSAM Control Blocks 
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JES Compatibility Interface Control Block (CICB) 
See Figure 38 for the relationship of the SYSIN/ SYSOUT data sets. 


Spool DCB 


DCBSVCXL 


(DCBIOBAD) 


DEB 


DCBDEBAD 
ACB 


DEBECBAD 


Save Area 


SAM-SI Flags 


RPL 


Internal 
Pointers 


and 
Work Areas 


SVC Exit List 


Notes: 

1. Set by DCB open executors (SAM-SI). 

2. Set by ACB open (JES2 open executors). 

3. Set by DCB open executors after ACB open. 


Figure 38. Control Block Structure for SYSIN/SYSOUT Data Sets 
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c 


ABEND Codes and Cross-Reference Table 


This table can be used to determine which module detected an abnormal 
termination condition. The system code and return code (register 15) are used 
to identify the message ID and the module name and can be found in dumps 
and in the message text. For example, in the message 


« IEC141I, 013-BC, IGGO0199G, JJOUFPN5, ,SYSIN 


013 is the system code and BC is the return code. Information in the table 
should be used in conjunction with OS/VS Message Library: VS2 System 
Messages and OS/VS Message Library: VS2 System Codes. 


ABEND 
Code 


001 


002 


003 


008 


Return 
Code 


08 


oC 


10 


14 


18 


01 
02 


03 


Module 


IGG019AH 
IGGO019AN 


IGGO019AB 
IGG019AD 
IGGO19AE 
IGGO19BN 
IGG019BO 
IGG019FB 
IGG019FD 
IGG019FF 
IGG019CD 
IGG019CV 
IGG019CC 
IGGO019TD 
IGGO19TV 
IGG019T2 
IGG019CD 
IGG019CV 
IGG019TD 
IGGO19TV 
IGGO19FG 
IGG019C2 
IGGO19AL 
IGG019DK 
IGG019C2 
IGG019T2 
IGGO19AJ 
IGG019BP 
IGGO019DJ 
IGGO19FJ 


IGG019CC 
IGG019CE 
IGG019CF 
IGGO19FK 
IGGO19FA 
IGGO19FQ 


IGG0197N 
IGG0197N 
IGG0197N 
IGG0197N 
1GG0197M 
IGG0197Q 


I1GG019BS 
IGG019DC 


Message 
Number 


IEC0361 
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ABEND 
Code 


013 


112 


115 
118 
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Module 


1GG0191C 
1GG0191B 
1GG0191B 
1GG0191B 
IGGOI91A 
IGGOI9IA 
1GG0199G 
IGGOISIA 
1GG0199G 
IGGOI9IF 
IGGOI9I11 
1GG0199G 
1GG0191H 
1GG0199K 
1GG0191D 
1GG01910 
1GG01990 
IGGO191K 
1GG0191W 
IGG01911 
IGGO191A 
1GG0196B 
1GG0199G 
1GG0196B 
IGG0196A 
1GG01912 
IGGO191I 
IGG01915 
1GG01916 
IGGOI91A 
IGG0199G 
1GG0191B 
IGG0197V 
IGGOI91A 
IGGOI91A 
IGG0197V 
IGGO191A 
1GG0199G 
IGG0199G 
IGGO191A 
IGGOI91A 
1GG0197V 
IGG0199G 
1GG0199G 
IGG0196Q 
IGGOI9IA 


IGCT0018 
IGCT0018 
IGCT0018 
IGCT0018 
IGCT0018 
IGCT0018 


IGG0210A 


IGCT002D 
IGCT002D 


Message 
Number 


IEC1411 


IEC908I 


IEC912I 


ABEND 
Code 


119 


144 
145 


151 
169 


212 


215 


218 


219 


01 
02 


08 


2C 


Module 


IGCTO02E 
IGCTOO2E 
IGCTO02E 
IGCT002E 
IGCTO02E 
IGCTO02E 
IGCTO02E 


IGC0006H 


IGCT0069 
IGCT0069 
IGCT0069 
IGCT0069 
IGCT0069 
IGCT0069 
IGCT0069 
IGC0006I 

IGCT0069 


IGCT 1081 


IGCTOI10E 
IGCTOILOE 
IGCTOI0OE 
IGCO010E 


IGCT0018 
IGCT0018 
IGCT0018 


IGCT0021 
IGCT0021 
IGCT0021 
IGCT0021 


IGCT002D 
IGCT002D 
IGCT002D 


IGCTO02E 
IGCT002E 
IGCTO02E 
IGCTO02E 


IGCT006H 
IGCT0069 


IGCT 1081 
IGCT 1081 


IGCTOI0E 
IGCT0021 

IGGOI9AV 
IGCT006H 
IGCT 1081 

IGGO19IN 
IGCT006H 


IGCT 1081 
IGCT1081 
IGCT1081 
IGCT1081 


IGCT006H 
IGCT006H 


Message 
Number 


IEC914] 


IEC916I 


IEC918I 
IEC919] 


IEC909] 


IEC910I 


IEC913]1 


IEC915] 


IEC9171 
IEC918] 


IEC920I 
IEC911] 
IEC024] 


IEC918] 
IEC145] 


IEC918I 
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SETPRT Executor Return Codes and Messages (For 


3800 Only) 
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ABEND 
Code 


744 
B13 


B14 


C37 


14 


18 


Module 
IGCT006H 


IGG0191U 
IGG0196R 
IGG0191U 
IGGO191V 
IGG0196R 
IGG0197U 
IGG0197U 


Message 
Number 


IEC907I 
TEC 1521 


IGG0197F 
IGG0197F 
IGGO191T 


IGG0196R 


IGG0191T 


IGG0196R 


IGGO0191T 
IGGOI197E 
IGGO197E 
IGGOI97E 


IGG0201B 
IGG0201Z 
IGG0201B 
IGG0201Z 
IGG0201B 
IGG0201Z 
1GG0201B 
IGG0201Z 
IGG0201B 
1GG0201Z 
IGG0201B 
IGGO0201Z 


IGCT0055 


IEC2171 


IECO0331 


The return codes produced by the SETPRT executors that support the IBM 
3800 Printing Subsystem are set when an error is detected by one of the 
executors. The SETPRT work area contains the return code (at 
SPWRETCD) and the reason code (at SPWRSNCD) (see the “Data Areas” 
section for a description of the SETPRT work area). 


Executor IGG08110 detects the following errors: 


Return Code 
00040000 


00080000 


00000020 


00000024 
00000038 


Reason Code 


0000nn04 


0000nn04 


Message No. 
IEC1681 


IEC169I 


IEC174I 


IEC175I 
IEC1I78I 


Description 


Issued if any of the specified modules for 
character arrangement tables (where 
nn=01 to 04) could not be found on the 
library. 


An I/O error occurred while attempting to 
locate a character arrangement table 
(where nn=01 to 04) in the library data set. 


SYS1.IMAGELIB was not opened because 
storage space was not available. 


SYS1.IMAGELIB cannot be opened. 


I/O error occurred while trying to initialize 
the 3800 Printing Subsystem. 
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Executor IGG08111 detects the following errors: 


Return Code 
00040000 


00080000 


000C0000 


000C0000 


0000030 


0000044 


000004C 


000004C 


Reason Code 


00000018 


00000018 


xx000018 


xx00001C 


xx000018 


xx0000 1C 


Message No. 
IEC 168] 


IEC1691 


IEC1701 


IEC1701 


IEC176I 


[EC1821 


IEC184I 


IEC184I 


Description 


Issued if any of the specified modules for 
library character sets could not be found on 
the library. 


An I/O error occurred while attempting to 
locate a library character set in the library 
data set. 


An 1/O error occurred while loading a 
library character set (xx indicates the 
opcode of the CCW when the error 
occurred). 


An 1/O error occurred while loading 
WCGMs (xx indicates the opcode of the 
CCW when the error occurred). 


There are more character set IDs requested 
in the character arrangement tables than 
the number of WCGMs installed on the 
printer. 


A position in the translate table refers toa 
WCGM for which no character set has been 
specified. 


A load check occurred while loading a 
library character set (xx indicates the 
opcode of the CCW when the error 
occurred). 


A load check occurred while loading 
WCGMSs (xx indicates the opcode of the 
CCW when the error occurred). 
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Executor IGG08112 detects the following errors: 


Return Code Reason Code 


00040000 00000008 
00040000 0Ommnn10 
00080000 00000008 
00080000 0Ommnn10 
000C0000 xx00nn04 
000C0000 xx000008 
000C0000 xxmmnn1l0 
00000020 

00000024 

00000034 

0000004-C xx00nn04 
0000004C xx000008 
0000004.C xxmmnn10 


262.2 OS/VS2 SAM Logic 


Message No. 


IEC 1681 


IEC 1681 


IEC 1691 


IEC1691 


IEC 1701 


IEC1701 


IEC1701 


IEC174I 


IEC175I 
IEC1771 


IEC184I 


IEC184I 


IEC 1841 


Description 
The requested copy modification module 2 
could not be found on the library. 


Issued if any of the specified modules for 
graphic modification records could not be 
found on the library (nn is the index of the 
character arrangement table, and mm is the 
index of requested graphic character 
modification modules within that table). 


An I/O error occurred while attempting to 
locate a copy modification module in the 
library data set. 


An I/O error occurred while attempting to 
locate a graphic character module (nn is the 
index of the character arrangement table, 
and mm is the index of requested graphic 
character modification modules within that 
table). 


An I/O error occurred while loading a 
translate table (where nn=01 to 04 and xx 
indicates the opcode of the CCW when the 
error occurred). 


An I/O error occurred while loading a copy 
modification module (where xx indicates 
the opcode of the CCW when the error 
occurred). 


An I/O error occurred while loading a 

graphic character modification module (nn 
is the index of the character arrangement J 
table, mm is the index of requested graphic 
character modification modules within that 

table, and xx indicates the opcode of the 

CCW when the error occurred). 


SYS1.IMAGELIB was not opened because 
storage space was not available. 


SYS1.IMAGELIB cannot be opened. 


The requested copy modification module 
requires a translate table which was not 
loaded for this request. 


A load check occurred while loading a 
translate table (where nn=01 to 04 and xx 
indicates the opcode of the CCW when the 
error occurred). 


A load check occurred while loading a copy 
modification module (where xx indicates 
the opcode of the CCW when the error 
occurred). 


A load check occurred while loading a 
graphic character modification module (nn 
is the index of the character arrangement 
table, mm is the index of requested graphic 
character modification module within that 
table, and xx indicates the opcode of the 
CCW when the error occurred). 


a “o. 
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Executor IGG08113 detects the following errors: 


Return Code 


00000400 


00000800 


00000C00 


00001000 


0000 1400 


00000020 


00000024 
0000004C 


Reason Code 


00000020 


00000020 


xx000020 


xx000020 


00000020 


xx000020 


Message No. 
IEC1681 


IEC169I 


IEC1701 


IECI711 


IEC1721 


IEC1741 


JEC1751 
IEC184] 


Description 


The requested FCB image could not be 
located via the DCB exit list and was not in 
the library data set. 


An I/O error occurred while attempting to 
locate the requested FCB image from the 
library data set. 


An I/O error occurred while loading a FCB 
(where xx indicates the opcode of the CCW 
when the error occurred). 


An I/O error was encountered while 
printing a representative map of the 
requested FCB image. 


SETPRT processing was terminated 
because the operator cancelled the job after 
inspecting the representative FCB image as 
it was displayed on the 3800 Printing 
Subsystem. 


SYS1.IMAGELIB was not opened because 
storage space was not available. 


SYS1.IMAGELIB cannot be opened. 


A load check occurred while loading a 
Forms Control Buffer (xx indicates the 
opcode of the CCW when the error 
occurred). 


Executor IGG08114 detects the following errors: 


Return Code 


00000028 


0000002.C 


0000003 C 


Reason Code 


xx000000 


xx000000 


Message No. 
IEC172I 


IEC172I 


IEC179I 


IEC180I 


IEC1801 


Description 


The operator cancelled SETPRT processing 
after receiving a request to load a Forms 
Overlay negative. 


The operator cancelled SETPRT processing 
after receiving a request to rethread the 
3800 Printing Subsystem. 


A request for threading to the 
burster-trimmer-stacker was issued but the 
feature is not installed on the 3800 Printing 
Subsystem being used. 


An I/O error occurred while trying to 
display a status code on the 3800 fora 
rethread or forms overlay request (xx 
indicates the CCW when the error 
occurred). 


An I/O error occurred while issuing a 
‘SENSE I/O’ CCW to sense the present 
paper thread path from the 3800 Printing 
Subsystem (xx indicates the CCW when the 
error occurred). 
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SAM Register Saving Convention 
The user is responsible for providing SAM with an 18-word Save Area. This , 


262.4 OS/VS2 SAM Logic 


Executor IGG08115 detects the following errors: 


Return Code 
000C0000 


000C0000 


Reason Code 


xx00000C 


xx0000 14 


xx000000 


Message No. 
IEC 1701 


IEC1701 


IEC180I 


Description 


An I/O error was detected while loading 
the starting copy number in the 3800 
Printing Subsystem. 


An I/O error was detected while loading 
the total copy count and forms overlay 
image count into the 3800 Printing 
Subsystem. 


An I/O error occurred while resetting the 
3800 Printing Subsystem to the first 
translate table. 


Executor IGG08116 detects the following errors: 


Return Code 
00000048 


00000048 


Reason Code 


xx000004 


xx000008 


Message No. 


IEC183] 


IEC 183] 


Description 


A system-restart- required type of paper 
jam occurred on the 3800 Printing 
Subsystem (xx indicates the opcode of the 
CCW when the error occurred). 


Cancel Key was pressed on the 3800 
Printing Subsystem (xx indicates the 
opcode of the CCW when the condition 
occurred). 


Executor IGG08117 detects the following errors: 


Return Code 


00000050 


00000050 


00000050 


00000050 


00000050 


Reason Code 


00000004 


00000008 


0000000C 


000000 10 


000000 1 4 


Message No. 


IEC 1811 


IEC185I 


IEC185] 


IEC185I 


IEC185I 


Description 


An invalid SETPRT request fora SYSOUT 
data segment was specified. A storage 
address was used for a copy modification 
module, character arrangement table, FCB, 
or user library DCB. Only 3800 load 
module IDs in SYS1.IMAGELIB are 
allowed for SYSOUT setup. 


During SETPRT processing for a SYSOUT 
data segment, an error was detected while 
attempting to read a JFCB or JFCBE 
control block from SWA. : 


During SETPRT processing for a SYSOUT 
data segment, an error was detected while 
invoking the CLOSE Subsystem Interface 
for the previous data segment. 


During SETPRT processing fora SYSOUT 
data segment, an error was detected while 
invoking the OPEN Subsystem Interface 
for the new data segment being created. 


During SETPRT processing for a SYSOUT 
data segment, an error was detected while 
the scheduler spool file allocation routine 
was segmenting the data set. 


address of the Save Area must be passed in register 13. The Read/Write 
GET/PUT modules will save the user’s registers 14 through 8 at the Save 
Area plus 20 (X ‘14’). In a formatted dump, registers 14 through 8 will be 
stored at register locations labeled R1 through R10 respectively. 


J 


APPENDIX A: PAPER TAPE CODE CONVERSION 
ROUTINES 


Get routine IGGO19AT (paper tape) and Write routine IGGO19BF (paper 
tape) use the tables in the following modules to convert characters read from 
paper tape to EBCDIC characters. 


Code Conversion Module IGGO19CM 


This module is loaded by the Open executor if the DCB specifies paper tape, 
and code conversion for Teletype* transmission code. 


The module consists of three tables: 
e A validity-checking and special functions table 
e A lowercase character translation table 


e An uppercase character translation table 


Code Conversion Module IGGO1I9CN 


This module is loaded by the Open executor if the DCB specifies paper tape, 
and code conversion for ASCII paper tape code. 


The module consists of two tables: 
e A validity-checking and special functions table 


e Acharacter translation table 


Code Conversion Module IGGO19CO 


This module is loaded by the Open executor if the DCB specifies paper tape 
and code conversion for Burroughs paper tape code. 


The module consists of two tables: 
e A validity-checking and special functions table 


e A character translation table 


Code Conversion Module IGGO19CP 


This module is loaded by the Open executor if the DCB specifies paper tape 
and type and code conversion for Friden paper tape code. 


The module consists of three tables: 
e A validity-checking and special functions table 
e A lowercase character translation table 


e An uppercase character translation table 


* Trademark of Teletype Corporation 
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Code Conversion Module IGGO19CQ 


This module is loaded by the Open executor if the DCB specifies paper tape 
and code conversion for IBM PTTC/8 code. 


The module consists of three tables: 
e A validity-checking and special functions table" 
e A lowercase character translation table 


e An uppercase character translation table 


Code Conversion Module IGGO19CR 


This module is loaded by the Open executor if the DCB specifies paper tape 
and code conversion for NCR paper tape code. 


The module consists of three tables: 
e A validity-checking and special functions table 
e A lowercase character translation table 


¢ An uppercase character translation table 


Translate Routine IGCOO10C 
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This routine is a type 2 SVC routine if made resident at system generation or 
a type 3 SVC routine if it is transient that translates data from EBCDIC to 
ASCT on output and ASCII to EBCDIC on input. It is entered when an 
XLATE macro instruction (SVC 103) is issued. 


The routine must be given the following parameters: 
e Register 0 = Length of area to be translated 
e Register 1 
Byte 0—bit 0 = 0: Translate from ASCII to EBCDIC 
bitO=1: Translate from EBCDIC to ASCII 
bits 1-7: Not used 
Byte 1-3: Address of area that contains record to be translated. 


APPENDIX B: BSAM/QSAM CHANNEL 


| PROGRAMS 
CHANNEL PROGRAM FOR OUTPUT, 
SIMPLE BUFFERING (IGG0191D) 
. CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ IOBSEEK+3 
TIC 
WRT CKD 
DCBBUFCB 2 DCBBLKSI 2 
(WRITE CHECK) 
SCH ID EQ ccws 5 
TIC *_8 
READ KD 
CCHHRKDD ' 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR1 
SCH ID EQ IOBSEEK+3 
TIC *_8 
WRT CKD ccw113 
DCB BUFCB2 DCBBLKSI2 
RD SECTOR SECTOR2 1 
(WRITE CHECK) 
SET SECTOR SECTOR2 
SCH ID EQ ccw11 
TIC *<§ 
RD KD 
CCHHRKDD3 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 


1. If there is no write check, CCHHRKDD will be in CCW5. 
2. For QSAM only. 

3. If there is no write check, CCHHRKDD will be in CCW7. 
4. For write-check only. 
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CHANNEL PROGRAM FOR TRACK-OVERFLOW, INPUT, 
NON-FORMAT-U (1GG0191H) | 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 
WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ IOBSEEK+3 
TIC *.8 

RD DATA 

RD CNT DCBFDAD+3! 
RD DATA2 BUFAD? 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR1 
SCH ID EQ l\OBSEEK+3 
TIC *_g 
RD DATA 
RD CNT DCBFDAD+3! 
RD DATA BUFAD? 
RD SECTOR SECTOR2 

FLAGS 

D = Data Chain 

C = Command Chain 

S=SLI 

K = Skip 


1. If there is more than one IOB, then address is IOBSEEK+3 of next |OB. 
2. If keys are specified, READ KD. 

3. For QSAM only. 

4. SLI bit is on for format-V records. 


Note: Format-U with track-overflow is not supported by RPS. 
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CHANNEL PROGRAM FOR OUTPUT, TRACK-OVERFLOW, 
NON-FORMAT-U (1GG0191H) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ IOBSEEK+3 5 
TIC *_g ADDR CCW? 
WRT SCKD! A COUNT AT 8 

END OF CLP. 
null DATA ADDR KEY+SEGMENT 

DATA LNTH* 
M/T SCH ID EQ? SRCH ADDR AT 5 
END OF CP. 
*_g SRCH ADDR 
IN CCWS 


TIC 


(WRITE CHECK) 

SEEK HEAD/NOP® IOBSEEK+1 

SCH ID EQ ADDR OF FIRST 
SEG COUNT FLD 
TIC *_g 

RD KD 0 


FLAGS 

D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 


1. Op code is WRT CKD for the last record segment. 

2. Chaining is turned off in this CCW of the last segment if no validity checking is specified. 

3. The key is written on the first record segment only. 

4. CCWs 5 and 6 are required if more than one segment is to be written. Each segment but the 
first is written by CCWs 5, 6, 3, 4, in that order. 

5. CCW5 op code and address may be overlaid with the parasitic TIC from CCW2 if not all the 
channel program segments are needed, but validity-checking is specified. 
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CHANNEL PROGRAM FOR TRACK-OVERFLOW, OUTPUT, 
NON-FORMAT-U (1GG0O191H) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR1 1 
SCH ID EQ lOBSEEK+3 5 
TIc *_g ADDR CCW8 
WRTS CKD! COUNT AT 8 
| END OF C. P. 
null DATA ADDR KEY+SEG 
DATA LNTH? 
M/T SCH ID EQ® SRCH ADDR AT 5 
END OF C. P. 


TIC *-8 ADDR OF SRCH 


ARG IN CCW5 


RD SECTOR SECTOR2 

(WRITE CHECK) 

SEEK CYL IOBSEEK+1 

SET SECTOR SECTOR2 

SCH ID EQ ADDR FRST 
SEG CNT 

TIC *-8 

RD KD 0 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 


. The op code is WRT CKD for the last record segment. 
. Chaining is turned off in this CCW of the last segment if no validity checking is specified. 
. The key is written on the first record segment only. 
. CCWs 6 and 7 are required if more than one segment is to be written. 
Each segment but the first is written by CCWs 6, 7, 4, and 5. The last segment is 
followed by the parasitic TIC to CCW8 if not all the channel program segments are used. 
5. CCW6 op code and address may be overlaid with the parasitic TIC from CCW3 if not 
all the channel program segments are needed. 


AaWN = 
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CHANNEL PROGRAM FOR INOUT, OUTIN 
(1GG0191J and 1GGO196L) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


SCH ID EQ IOBSEEK+3 
TIC *-8 

M/T RD DATA 

M/T RD CNT NEXT IOBSEEK+3'! 
M/T RD KD2 

SCH IDEQ IOBSEEK+3 
TIC *-8 

WRT CKD CCW13 

00 

(WRITE CHECK) 

SCH ID EQ 

TIC 

M/T RD KD 

additional search argument 


COMMAND CODE ADDRESS FLAGS COUNT 


SCH ID EQ IOBSEEK+3 
TIC *_g 
TIC *+8 
M/T RD KD? 

M/T RD CNT 

00 

00 

SCH ID EQ 

TIC 

WRT CKD 

00 

00 

SCH ID EQ 

TIC 

M/T RD KD 


FLAGS 


D = Data Chain 

C = Common Chain 
S =SLI 

K = Skip 


1. If there is only one IOB, the address is the DCBFDAD+3. 
2. Read both key and data only if key is specified. 
3. SLI bits is on for format-U and format-V records. 
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CHANNEL PROGRAM FOR INOUT, OUTIN 
(1GGO191J and IGGO196L) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR 

SCH ID EQ 

TIC 

M/T RD DATA 

M/T RD CNT 
M/T RD KD! 

RD SECTOR 

SET SECTOR 

SCH ID EQ 

TIC 

WRT CKD 

00 

RD SECTOR 

(WRITE CHECK) 

SET SECTOR 

SCH ID EQ 

TIC 

M/T RD KD 

additional search argument 
additional search argument 


COMMAND CODE 


SET SECTOR 

SCH ID EQ 

TIC 

TIC 

M/T RD KD! 

M/T RD CNT 

RD SECTOR 

SET SECTOR 

SCH ID EQ 

TIC 

WRT CKD 

00 

RD SECTOR 

(WRITE CHECK) 

SET SECTOR 

SCH IBD EQ 

TIC 

M/T RD KD 

additional search argument 
additional search argument 


FLAGS 


D = Data Chain 

C = Command Chain 
S= SLI 

K = Skip 


1. Read both key and data only if key is specified. 
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SECTOR1 
lIOBSEEK+3 
*-8 


CCw19 


SECTOR2 
SECTOR1 
lIOBSEEK+3 
*.8 

CCwW18 


SECTOR2 


SECTOR2 
CCW18 
*-8 


ADDRESS FLAGS COUNT 


SECTOR 1 
IOBSEEK+3 
*-8 

* +8 


CCw19 
SECTOR2 
SECTOR1 
IOBSEEK+3 
*-§ 

Ccw18 


SECTOR2 
SECTOR2 


CCW18 
*-8 


CHANNEL PROGRAM FOR CHAINED SCHEDULING DIRECT-ACCESS 


CCW # COMMAND CODE 


WITHOUT ROTATIONAL POSITION SENSING 


OUTPUT WITH WRITE-CHECK (I1GG0191K) 


ADDRESS FLAGS COUNT 


M/T SCH ID EQ 
TIC 

WRT CKD 

00 

SCH ID EQ 

TIC 

M/T RD DATA‘ 
NOP 


CCHHRKDD 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR 
READ HA 

M/T SCH ID EQ 
TIC 

WRT CKD 

00 

READ SECTOR 
SET SECTOR 
SCH ID EQ 

TIC 

M/T READ DATA | 
NOP 


CCHHRKDD 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 

P = PCI 


1. If keys are specified, READ KD. 


ICBSEEK+3 
*8 

CCW9 
BUFFER 
CcCWw9 

*-8 


CCW 1 or 3 in 
NEXT ICB 


SECTOR =0 


ICBSEEK+3 
*.g 

ccw13 
BUFFER 
SECTOR 2 
SECTOR 2 
ccw13 

+ 


CCW 1 or 5 in 
NEXT ICB 
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CHANNEL PROGRAM FOR STANDARD FORMAT-F INPUT, 
SIMPLE BUFFERING (I1GG01910) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ lIOBSEEK+3 5 
TIC *_8 
READ KD! DCBBUFCB 2 DCBBLKSI2 


WITH ROTATIONAL POSITION SENSING 


SETS SECTOR 1 
SCH ID EQ lIOBSEEK+3 
TIC *_g 

READ KD! DCBBUFCB 2 
M/T READ CNT 

READ S SECTOR 2 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 


1. If key is not specified, read data only. 
2. For QSAM only. 
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CHANNEL PROGRAM FOR NOT-STANDARD FORMAT-F 
SIMPLE BUFFERING, INPUT (1GG01910) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 
WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ IOBSEEK+3 

TIC *_g 

TIC "+8 

RD COUNT NEXT IOBSEEK+32 
RD KD? DCB BUFCB! 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR1 
SCH ID EQ lIOBSEEK+3 
TIC *-8 
TIC *+8 
RD COUNT CCW8 
RD KD? DCBBUFCB' 
RD SECTOR SECTOR2 
CCHHRKDD 

FLAGS 

D = Data Chain 

C = Command Chain 

S = SLI 

K = Skip 


1. For QSAM only. 
2. If there is one |OB, then address is DCBFDAD+3. 
3. If the data set has no keys, then the op code is RD D. 
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CCW # 


WITHOUT ROTATIONAL POSITION SENSING 


WITH ROTATIONAL POSITION SENSING 


FLAGS 


D = Data Chain 


CHANNEL PROGRAM FOR NOT-STANDARD FORMAT-F, SIMPLE 


BUFFERING, INPUT, SEARCH-DIRECT (IGGO1990) 


COMMAND CODE 


SCH ID EQU 
TIC 

Tic! 
M/T RD D2-3 
M/T CNT 
CCHHRK, D, D, 


CCHHRK, D, D, 


SET SECTOR 
SCH ID EQU 

TIC 

Tic! 
M/T RD D2-3 
M/T RD CNT 
READ SECTOR 
CCHHRK. D. D 
CCHHRK,D, 0, ' 


C = Command Chain 


S = SLI 


K = Skip 


P = PCI 


1. For a search on record 0, this CCW is changed to an M/T RD CNT and its address field is CCW7. 


ADDRESS 


IOBSEEK+3 
*-8 
*+g! 


*4+3 


SECTOR1 
IOBSEEK+3 
*-8 

*+g1 
BUFFER 
*+16 
SECTOR2 


2. If keys are present, the op code is RD KD and count is KL + D,- 


3. For exchange buffering, there will be as many RD D CCWs as the blocking factor. 
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FLAGS 


< 


APPENDIX C: UPDATE CHANNEL PROGRAMS 


CHANNEL PROGRAM FOR DIRECT-ACCESS, UPDATE, 
NO TRACK-OVERFLOW (IGG0196P) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ IOBSEEK+3 5 
TIC *_8 

WRT DATA! BUFFER2 DCBBLKSI? 
(WRITE CHECK)® 

SCH ID EQ IOBSEEK+3 5 

TIC *_8 

RD DATA4 DCBBLKSI? 
SEEK HEAD/NOP® Cccw13+1 

SCH ID EQ CCW13+3 

TIC *_8 

TIC *+8 

RD COUNT NEXT ccw137 

RD DATA4 BUFFER2 DCBBLKSI? 
MBBCCHHR 


D = Data Chain 
C = Command Chain 


. If key is specified, WRT KD. 

. For QSAM only. 

. SLI bit is on for format-U and format-V records. 

. If key is specified, READ KD. 

. Command chain off for BSAM. 

. CCW7 is present for QSAM only. Op code is SEEK HEAD for cylinder allocation and NOP for track allocation. 
. If there is only one 1OB, the address field is DCBFDAD+3. 

. CCWs 4-6 are present for write-check. 


On Oot WN = 
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CHANNEL PROGRAM FOR DIRECT-ACCESS UPDATE, 
NO TRACK-OVERFLOW (1GG0191Z, 1GG01923) 


CCW # COMMAND CODE 


ADDRESS 


FLAGS COUNT 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR 
SCH ID EQ 

TIC 

WRT DATA! 
(WRITE CHECK)® 
SET SECTOR 
SCH ID EQ 

TIC 

RD DATA? 

SEEK HEAD/NOP® 
SET SECTOR 
SCH ID EQ 

TIC 

TIC 

RD COUNT 

RD DATA 

RD SECTOR 
MBBCCHHR 
CCHHRKDD 


SECTOR A 
IOBSEEK+3 
*-8 
BUFFER 


SECTOR A 
lIOBSEEK+3 
*-8 


CCW17+1 
SECTOR] 
CCW17+3 
"33 

*+8 
ccw18® 
BUFFER? 
SECTOR2 


FLAGS 

D = Data Chain 

C = Command Chain 

S =SLI 

K = Skip 

1. If key is specified, WRT KD. 

2. For QSAM only. 

3. If key is specified, READ KD. 

4. Command chain is off for BSAM. 

5. 

6. If there is only one IOB, the address field is DCBFDAD+3. 
7. Command chain is off for BSAM if write-check is not specified. 
8. CCWs 5-8 are present for write-check. 
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1 
5 


DCBBLKSI? 


1 
5 


DCBBLKSI2 


DCBBLKSI? 
1 


CCWS is present for QSAM only. Op code is SEEK HEAD for cylinder allocation and NOP for track allocation. 


CHANNEL PROGRAM FOR DIRECT-ACCESS UPDATE, 
TRACK-OVERFLOW (IGG0196P) 


CCW # COMMAND CODE 


ADDRESS 


COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ 

TIC 

WRT DATA! 
(WRITE CHECK)8 
SEEK HEAD/NOP® 
SCH ID EQ 

TIC 


RD DATA4 

SEEK HEAD/NOP®-9 
SCH ID EQ 

TIC 

RD DATA 


RD COUNT 
RD DATA4 
MBBCCHHR 


FLAGS 


D = Data Chain 
C = Command Chain 
S = SLI 

‘> K = Skip 


. If key is specified, WRT KD. 
. For QSAM only. 


. If key is specified, READ KD. 
Command chain is off for BSAM. 
CCWS8 is present for QSAM only. 


. CCWs 4-7 are present for write-check. 


OONANAWDN = 


. SLI bit is on for format-U and format-V records. 


IOBSEEK+3 
*_g 
BUFFER2 


IOBSEEK+1 
IOBSEEK+3 
*-8 


CCW14+1 
CCW 14+3 
*-8 


NEXT ccw14/ 
BUFFER2 


If there is only one IOB, the address field is DCBFDAD+3. 


. Op code is SEEK HEAD for cylinder allocation and NOP for track allocation. 


5 


DCBBLKSI2 


DCBBLKSI2 
6 
5 


50 (non- 
zero length) 
5 
DCBBLKSI2 
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CHANNEL PROGRAM FOR DIRECT-ACCESS UPDATE, 
TRACK-OVERFLOW (1GG01912Z, IGG01923) 


CCW # COMMAND CODE ADDRESS FLAGS 


COUNT 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR 
SCH ID EQ 

TIC 

WRT DATA! 

(WRITE CHECK)? 
SEEK HEAD/NOP® 
SET SECTOR 

SCH ID EQ 

TIC 

RD DATA? 

SEEK HEAD/NOP®8 
SET SECTOR 

SCH ID EQ 

TIC 

RD DATA 


RD COUNT 
RD DATA 
RD SECTOR 
MBBCCHHR 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 


. If key is specified, WRT KD. 

. For QSAM only. 

. If key is specified, READ KD. 
Command chain is off for BSAM. 
CCW10 is present for QSAM only. 


CCWs 5-9 are present for write-check. 


ONAM EWN = 
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SECTOR A 
IOBSEEK+3 
*-8 
BUFFER 


JOBSEEK+1 
SECTOR A 
IOBSEEK+3 
*-8 


CCW18+1 
SECTOR1 
CCW18+3 
*-8 


NEXT CCW18 
BUFFER2 
SECTOR2 


Command chain is off for BSAM if write-check is not specified. 


. Op code is SEEK HEAD for cylinder allocation and NOP for track allocation. 


DCBBLKSI 


DCBBLKSI@ 


50 (non- 
zero length) 
5 
DCBBLKSI@ 
1 


CHANNEL PROGRAM FOR DIRECT-ACCESS UPDATE, 


NO TRACK-OVERFLOW (1GG0191Z, 1GG01923) 
FIXED BLOCKED STANDARD OR FIXED STANDARD 


CCW # COMMAND CODE 


SET SECTOR 
SCH ID EQ 

TIC 

WRT DATA! 
(WRITE CHECK)? 
SET SECTOR 
SCH ID EQ 

TIC 

RD DATA® 

SEEK HEAD/NOP” 
SET SECTOR 
SCH ID EQ 

TIC 

TIC 

RD COUNT 

RD DATA 

RD SECTOR 
MBBCCHHR 


FLAGS 
D = Data Chain 


C = Command Chain 
= SLI 


= Skip 


Ss 
K 


“VS OofhP WN = 


. If key is specified, WRT KD. 

. For QSAM only. 

. If key is specified, READ KD. 

. Command chain is off for BSAM. 
. CCWS9 is present for QSAM only. Op code is SEEK HEAD for cylinder allocation and NOP for track al, scation. 
. Command chain is off for BSAM if write-check is not specified. 
. CCWs 5-8 are present for write-check. 


ADDRESS FLAGS 


SECTORA 
IOBSEEK+3 
*-8 
BUFFER 


SECTOR A 
IOBSEEK+3 
*-8 


CCW17+1 
SECTOR1 
CCW17+3 

*_5 

ccw14 
NEXT CCW17 
BUFFER? 
SECTOR2 
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DCBBLKSI? 


1 
5 


DCBBLKSI? 


DCBBLKSI 
1 


APPENDIX D: CHAINED SCHEDULING CHANNEL 
PROGRAMS 


CHANNEL PROGRAM FOR MAIN IOB, CHAINED SCHEDULING (IGG0191K) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


- WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ IOBSEEK+3 
TIC *_g 
TIC ICB CH PGM! 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR1 
SCH ID EQ IOBSEEK+3 
TIC *_g 

TIC ICB CH PGM! 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 

P = PCI 


1. TIC goes to the first ICB channel program in the chain. 
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CHANNEL PROGRAM FOR CHAINED SCHEDULING, INPUT, DIRECT ACCESS (1GG0191K) 


CCW # COMMAND CODE ADDRESS 
WITHOUT ROTATIONAL POSITION SENSING 
M/T RD COUNT NEXT ICBSEEK+3 


M/T RD DATA! BUFFER 
NOP CCW1 IN NEXT ICB 


WITH ROTATIONAL POSITION SENSING 


M/T RD COUNT NEXT ICBSEEK+3 
M/T RD DATA! BUFFER 

TIC (HEX‘88’) *+83 

RD SECTOR SECTOR 2 


FLAGS 


D = Data Chain 

C = Command Chain 
S =SLI 

K = Skip 

P = PCI 


1. If keys are specified, the command code is READ KD. 


2. SLI bit is on for format-U or format-V records. 
3. Appendage may change to CCW1 in the next ICB. 
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FLAGS COUNT J 


CSP 5 
cs2 BUF LENGTH 
S 1 


8 
BUF LENGTH 


1 


CHANNEL PROGRAM FOR CHAINED SCHEDULING, DIRECT ACCESS, 
OUTPUT, NO WRITE-CHECK (IGG0191W) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


M/T SCH 1D EQ ICBSEEK+3 C 5 
TIC *-8 
WRT CKD CCW6 DSP 8 
00 BUFFER CS BUF LENGTH 
NOP CCW1 or 3 in Ss 1 
NEXT ICB 
CCHHRKDD 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR =0 C 
M/T SCH ID EO ICBSEEK+3 C 
TIC *_g 

WRT CKD CCW8 DSP 
00 BUFFER CS 
TIC (X‘88’) * +g! S 


RD SECTOR SECTOR 2 
CCHHRKDD 


FLAGS 


D = Data Chain 

C = Command Chain 
S =SLI 

K = Skip 

P = PCI 


1. Appendage may change to CCW1 or 4 in the next ICB. 
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CHANNEL PROGRAM FOR CHAINED SCHEDULING, INOUT, OUTIN, 
ICB WITHOUT WRITE-CHECK (1GG0191X) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITH RECORD READY 


M/T RD CNT NEXT ICBSEEK+3 
M/T RD DATA 

TIC (X‘88’) * +82 

READ SECTOR SECTOR2 

M/T SCH ID EQ ICBSEEK+3 

TIC 


WRT CKD 


TIC (‘88') 


READ SECTOR 
CCHHRKDD 


SECTOR2 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 

P = PCI 


1. SLI bit is on for format-W and format-V records. 
2. Appendage may change to the next ICB CCW. 


284 OS/VS2 SAM Logic 


CHANNEL PROGRAM FOR CHAINED SCHEDULING, INOUT, OUTIN, 
ICB WITH WRITE-CHECK (I1GG0191X) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITH ROTATIONAL POSITION SENSING 


M/T RD CNT NEXT ICBSEEK+3 
M/T RD DATA 
TIC (‘88’) “+8! 
READ SECTOR SECTOR2 
M/T SCH ID EQ ICBSEEK+3 
TIC *-8 
WRT CKD Ccw15 
READ SECTOR SECTOR2 
SET SECTOR SECTOR2 
SCH ID EQ CCW15 
TIC *-8 
M/T RD DATA 
NOP NEXT ICB CCW7 
CCHHRKDD 
FLAGS 
D = Data Chain 
C = Command Chain 
S = SLI 
K = Skip 
P = PCI 


1. Appendage may change to next ICB CCW. 
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CHANNEL PROGRAM FOR CHAINED SCHEDULING, INOUT, OUTIN, ICB (1GG0O191R) 


CCW # COMMAND CODE ADDRESS 


FLAGS COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


M/T RD CNT NEXT ICBSEEK+3 
M/T RD DATA 

NOP NEXT ICB CCW2 
M/T SCH ID EQ ICBSEEK+3 

TIC 


WRT CKD 


(WRITE CHECK?) 

SCH ID EQ 

TIC 

M/T RD DATA 

NOP NEXT ICB CCW6 
CCHHRKDD 


FLAGS 


D = Data Chain 

C = Command Chain 
S = SLI 

K = Skip 

P = PCI 


1. SLI bit is on for format-U and format-V records. 


2. If there is no request for a write-check, CCWs 8-10 are omitted and CCW7 has no command chaining. 
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— 


Re FT ee ae Si ees EE 


CHANNEL PROGRAM FOR CHAINED SCHEDULING, 
MAIN IOB, INOUT, OUTIN (IGG0O191X) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ lIOBSEEK+3 
TIC *_g8 
TIC ICB CH PGM' 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR1 
SCH ID EQ IOBSEEK+3 
TIC “28 

TIC ICB CH PGM! 


FLAGS 


D = Data Chain 

C = Command Chain 
Ss =SLI 

K = Skip 

P =PCI 


1. TIC goes to the first |CB channel program in the chain. 
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APPENDIX E: BSAM (BDAM CREATE) CHANNEL 
PROGRAMS 


CHANNEL PROGRAM FOR ERASE CCWs FOR BSAM LOAD MODE, 
TRACK-OVERFLOW (1GG0191M) 


* ccw # COMMAND CODE ADDRESS FLAGS COUNT 


~ WITHOUT ROTATIONAL POSITION SENSING 


SCH ID EQ 

TIC 

WRT DATA 

SCH ID EQ 

TIC 

RD DATA 

ERASE 

M/T RD HA 

TIC 

RO ADDR = CCHHOO000 


WITH ROTATIONAL POSITION SENSING 


SET SECTOR SECTOR =0 
SRCH ID EQ CCW13 

TIC *-8 

WRT DATA CCW13 

SET SECTOR SECTOR =0 
SCH ID EQ CCW13 

TIC *_g 

RD DATA 

ERASE CCW 9 

SET SECTOR SECTOR =0 
M/T RD HA 

TIC CCcW1 

RO ADDR CCHHOO00 


FLAGS 


D = Data Chain 

C = Command Chain 
S= SLI 

K = Skip 


1. Address of CCW11 is stored in DCBEOBW 
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CHANNEL PROGRAM FOR BSAM LOAD MODE, 
TRACK-OVERFLOW (IGG0191M) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


FLAGS 
D = Data Chain 


C = Command Chain 


S=SLI 
K = Skip 


SCH ID EQ 
TIC 
WRT CKD 


TIC/NOP2 

SCH ID EQ 

TIC 

WRT DATA 
READ RO 

M/T SCH ID EQ 
TIC 

WRT CKD 


TIC/NOP?2 

SCH ID EQ 

TIC 

WRT DATA 
READ RO 
(WRITE CHECK) 
SEEK CYL 

SCH ID EQ 

TIC 

RD KD 


|OBSEEK+3 
*8 
|OBDNACF (1) 


CCcw20 
IOBROCNT (1) 
*-8 
IOBRODAT (1) 


IOBROCNT (2) 
*-8 
IOBDNRCF (2) 


CCW19 
IOBROCNT (2) 
*-8 
IOBRODAT (2) 


IOBSEEK+1 
IOBDNRCE (1) 
* 8 


1. CCWs 5, 9, 14, and 18 are omitted if verify is not specified. 


2. The TIC/NOP at CCW5 and CCW14 is set to NOP if RO is to be written on this track. 
3. CCWs 10-18 are repeated as many times as are needed to write all segments. 
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CHANNEL PROGRAM FOR CREATE BDAM (IGG0199L) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


SCH ID EQ IOBSEEK+3 
TIC *_8 
WRT CKD lOBDNRCF 
WRT CKD 
(WRITE CHECK)! 
SCH ID EQ IOBDNRCF 
TIC 4.8 
RD KD 
SCH ID EQ IOBROCNT 
TIC *_g 
WRT DATA IOBRODAT 
SCH ID EQ? |OBROCNT 
TIC *_g 
RD DATA 
ERASE? * 

FLAGS 

D = Data Chain 

C = Command Chain 

S= SLI 

K = Skip 


1. CCWs 5-7 are omitted if write-check is not specified. 

2. CCWs 11-13 are always generated for format-U and format-V records, or if write check 
is specified. 

3. CCW14 is generated for format-U and format-V records only. 
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CHANNEL PROGRAM FOR CREATE BDAM (IGG0199L) 


CCW # COMMAND CODE : ADDRESS 


SET SECTOR SECTOR1 
SCH ID EQ lOBSEEK+3 
TIC "5 
WRT CKD lIOBONRCF 
WRT CKD 
RD SECTOR SECTOR2 
(WRITE CHECK)! 
SET SECTOR SECTOR2 
SCH ID EQ IOBDNRCF 
TIC *_g 
RD KD 
SET SECTOR SECTOR = 0 
SCH ID EQ IOBROCNT 
TIC *-g 
WRT DATA lIOBRODAT 
SET SECTOR 2 SECTOR2 
SCH ID EQ IOBROCNT 
TIC *_g 
RD DATA 
ERASE? 

FLAGS 

D = Data Chain 

C = Command Chain 

S=SLI 

K = Skip 


1. CCWs 7-10 are omitted if write-check is not specified. 

2. CCW19 is generated for format-U and format-V records only. 

3. CCWs 15-18 are always generated for format-V and format-U records or if write-check 
is specified. 
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FLAGS 


K, +BLKSIZE 
1 


1 


CHANNEL PROGRAM FOR BSAM LOAD MODE, 
TRACK OVERFLOW (IGG0199M) 


CCW # COMMAND CODE ADDRESS FLAGS COUNT 


FLAGS 
D = Data Chain 


C = Command Chain 


S= SLI 
K = Skip 


SET SECTOR 
SCH ID EQ 
TIC 

WRT CKD 
00 
TIC/NOP2 
SET SECTOR 
SCH ID EQ 
TIC 

WRT DATA 
SET SECTOR 
READ RO 
M/T SCH ID EQ 
TIC 

WRT CKD 


TIC/NOP2 
SET SECTOR 
SCH ID EQ 
TIC 

WRT DATA 
SET SECTOR 
READ RO 
RD SECTOR 
SEEK CYL 
SET SECTOR 
SCH ID EQ 
TIC 

RD KD 


SECTOR1 
IOBSEEK+3 
*-8 
IOBDNRCF (1) 


CCW24 
SECTOR=0 
lOBROCNT (1) 
*-8 
IOBRODAT (1) 
SECTOR=0 


|OBROCNT (2) 
eee 
\OBDNRCF (2) 


CCW24 
SECTOR=0 
IOBROCNT (2) 
*~8 
IOBRODAT (2) 
SECTOR=0 


SECTOR2 
\OBSEEK+1 
SECTOR 1 
IOBDNRCF (1) 
*-~8 


1. CCWs 11, 12, 22, 23, and 25-29 are omitted if verify is not specified. 


2. The TIC/NOP at CCW6 and CCW17 is set to NOP if RO is to be written on this track. 
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whnaormal-end appendages 108-111 
access conditions for selecting modules (see module selector) 
access method options (see module selector) 
access Method save area for user totaling 254 
address conversion routines 
full-to-relative address 192 
relative-to-full address 191-192 
ANS control character (see control character) 
appendages 
introduction to 87-88 
module selector (Figure 15) 8&9 
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abnormal-cnd = [O8-111 
channel-end 94106 
end-of-extent 88-93 
PCI 106-108 
SIO. 93-94 
appendixes (see Contents) 
ASCH block prefix 17 
assocnitled data set processing 
(see also 3508/3525) 
FOB modules (Figure 7) $5 
asynchronous-error-processing routines 
track overflow 5-86 
3211 Printer &6-87 


backspace 
BSP routine [87-188 
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basic partitioned access method (see BPAM) 
basic sequential access method (see BSAM) 
BD AM-create (WRITE-load) 
channel programs (Appendix E) 289-293 
Check routines 126-127 
stuge 27 Open erecutors 153-163 
Write modules 114+123 
BOW (hlock descriptor word) S0-52 
BLDL or FIND routines 190-192 
in TRR 201 
block descriptor word (BDW) $0-$2 
block prefix. ASCII 17 
blacked records 
Get routines 
simple-buffering 17-32 
update-mode (PUTX) 33-4) 
Put routines 
simple-buffering 40-52 
update-mode (PUTX) 52-83 
BPAM 
description of routines 134 
flow of control (Diagram G) 219 
introduction ta 168,134 
relation to BS AM routines §5.134 
relation Co processing program = 18.134 
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residence of = 134 
routines for 
BLDL 190-19] 
convert MBBCCHRR = 139,191-192 
convert TTR 139. 191-192 
FIND 190-192 
STOW 188-190 
BSAM 
control blocks 256 
flow of control (Diagram G) 219 
introduction to TS.tt4 
module selector for 
appendages (Figure 1S) &9 
Check (Figure 19) 124 
Control (Figure 20) 129 
overview (Diagram Ad 207 
Read (Figure 18) 118 
Write (Figure IR) 11S 
routines 
appendages 87-111 
Check 123-127 
Control 128-134 
cnd-of-block 53-77 
Read 114123 
synchronizing-and-crror processing 77-87 
Write 114123 
BSAM (BDAM-create) channel programs 
(Appendix FE) 289-293 
BSAM/QSAM channel programs 
(Appendix B) 265-274 
BSP 
BSAM overview (Diagram A) 207 
iNnTRR 204 
routine 187-188 
buffer alignment = 17&-179 
buffer empty (Get routines) 
simple-buffering 17-32 
update-mode 33-40 
buffer pool management 
BUILD rowtine 179-18] 
FREEBUF (macro expansion) 180 
FREEPOOL (macro expansion) 181 
GETBUF (macro expansion) 180 
GETPOOL routine 178-179 
mtroduction 15,178 
buffer ready for emptying (Put routines) 
simple buffering 40-52 
update mode, PUTX 36-37.52-53 
buffering techniques 
Gel routines 17-40 
Pul routines 40-53 
BUILD 
buffer pool management routing 179-181 
common access method routine 
(Diagram A) 207 
BUILDRCD 
buffer pool management routine 1K] 
QSAM overview (Diagram A) 207 
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card punch, 3825 (see 3505/3525) 
card reader 


convert relative-to-full address routine 191-192 
create-BDAM (see BDAM-create) 
cross-reference table. ABEND codes 259-262 
CSECT names (as listed in the directory) 237-241 


(see ulvo 3505/3525) 
Get routines 23 D 
chained channel-program scheduling 
appendages 
end-of-extent 92 
PCI. channel end, abnormal 
channel programs (Appendix D) 281-287 
end-of-block routines 64-74 
1OB prefix 65 
joing 
Jeseription of end-of-block routines 6474 
mtroduction to 64-65 


data areas 
access method save area 
106-108 for user totaling 254 
BSAM control blocks 256-257 
JES Compatibility Interface Control Block 258 
QSAM control blocks 255 
data operating mode 
Get module (Figure 1) 19,31-32 
Put module (Figure 6) 42,49-82 


Note/Point routines 132-134 data protection ES DPI 
parting (disconnecting) 106-108 (tee also ISO5/ 3525) 
Stage 2 Openexceutors 148-163 FOB modules (Figure 7) 55 
stage 3 Open executors 163-17] DCB relocation to protected work area 138-136 
chained scheduling, channel programs decision tables mee module selector) 
(Appendix DB) 281-287 DEVTYPE SVC routing [85 
channel-end appendages 9+ 106 ay. q ee oue 
channel programs diagrams 207-235 
BDAM create (Appendix EF) 289-293 directory module names 237-241 
BSAM/QSAM (Appendix B) 265-274 DMABCOND macro 136 
chained scheduling (Appendix D) 281-287 DOS embedded checkpoint records (vee OS/DOS tape 
update (Appendix C) 275-279 compatibility) 
character conversion (see paper tape character conversion DPI. data protection image 
Faihee (see also 3505/3528) 
CHECK macro instruction FOB modules (Figure 7) 55 


BSAM/BPAM (Diagram C) 211 dummy dataset routine [35 
Check modules 123-127 

Check routines E 
Boe BE agree) 21) embedded checkpoint records, DOS) (see OS/DOS tape 
descriptions (23-127 Sanipalbiliy 

Checkpoint records, DOS (see OS/DOS tape compatibility) Savpiy bulfer 

Close executors 172-176 Get seuatiaes 

CLOSE macro instruction sini plenuleene AAs 
SAM overview (Diagram A) 207 ripdlatesnnde: 34-4) 

CNUTRL macro instruction Bice ae 
BSAM control routines 128-134 simple-buffering +52 
QSAM control routines TET-113 update-mode, PUTN 36-37 


SOUS CORY Ertan Paes end-of-block condition (see cnd-of-block routines) 
descriptions (Appendix A) 263-264 end-of-block routines, QSAM/BSAM 

come ro. chained channel-program scheduling 6474 
ape Dd ees i: UE flow of control (Diagram FY 217 
buffer pool management 178-183 INOUT or OUTIN 53-64 


Sewn es 135-178 Put routines 40-3 
SAM overview (Diagram A) 207 track overflow 74-77 


se ae eens eo block. JES 258 Bid-alanienl appendices NON 
contre OCKS, Felation Oo CODAD fouiine 


= * 
ae | 2S ‘ ; os dummy dataset [35 
compatibility interface ICICB) 2° FOV tend-of-volume) routine 


7 24§ : : 
ce ee : BSAM Flow of Control (Diagram 1) 223 
control character, end-of-block routines ieee rULIMER TRAC aerEIGe? FRE: 
engined SeUCGUUNE OFS error option implementation 
normal scheduling S464 SYNAD routines 192-197 
SoMtner DOUMIES synchronizing and error processing routines 77-87 
selected me tars by Open executor | EXCP processing with the 3800 printer S8,S9 
SSUES S00) Me execution off channel programs 


CATES scheduled by chaining (PCL appendage) 106-108 
BSAM 128-134 


QS.AM I1t-143 
convert full-to-relative address routine 192 
convert record aumber to sector value routine 192 
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executors, SAM 
control sequence (Figure 23) 135 
Close 172-176 
flow of control for Open (Diagram E) 215 
introduction to 136 
Open 136-171 
relation to Open/Close/EOV support 135 
executors, SETPRT  200-200.3 
return codes 262-262.2 
selection of = 197.1 
work area 243 


F 


FIND macro tnstruction 
C option (macro expansion) 190 
D option routine 191 
flow of control, diagrams for 
BPAM routines (Diagram G) 219 
BSAM routines (Diagram G) 219 
FOV eaccutors 
BSAM (Diagram |) 223 
QSAM (Diagram H) 221 
FEOV executor, QSAM (Diagram J) 225 
JES Compatibility Interface routines 
(Diagram M) 231 
QSAM routines (Diagram F) 217 
SAM Open executors (Diagram E) 215 
force close caccutors = 177-178 
forward space 
control module = 131-132 
FREEBUL macro instruction 
BSAM/BPAM (Diagram A) 207 
macro cexapansion — L&0 
FREEPOOL macro instruction 
macro expansion [Rl 
SAM overview (Diagram A) 207 
full buffer 
Get routines 
suuple-buffering 17-32 
update-mode 33-40 
Put routines Gee buffer ready for emptying) 


G 


GET macro instruction 
Get routines 17-40 
mtroduction to Get routmes 17 
Get routines 
buffering techniques 17-19 
introduction to 17 
simple-buffering 17-32 
update mode 33-40 
GE TBUF macro instruchen 
BSAM/BPAM (Diagram A) 207 
macro expansion [80 
GETPOOL 
buffer pool management routine 178-179 
common access method routine (Diagram A) 207 


1GGSPW—SETPRT work area 243 
HEEASPP—SHE PPRT parameter list, 244 
IMGLIB SVC routing 18S 

in FRR 20S-2%) 
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INOUT mode 
end-of-block routines 53-64 
stage 2 open executors 148-163 

INPul processing routine, QSAM = 32-33 

1/O interruption 
BPAM flow of control (Diagram G) 219 
QSAM flow of control (Diagram F) 217 
SAM overview (Diagram A) 207 

1OB (input/output block) SAM prefixes 
comparison for normal end chained-scheduling 65 
description 6-468 
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JES Compatibility Interface Control 
(see also SAM-SI) 
BSAM processing module (SYSOUT) = 127 
Check module (SYSEIN) 123-124 
Close processing (Diagram Lb) 229 
Control block (CICB) 258 
Open processing (Diagrams KR) 227 
Overview (Diagram M) 234 
QSAM processing module 28 
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load-BDAM (see BIDAM-~reate) 
logical record interface 

Get module 27 

Put module 46-48 


M 


Macro capansion 
FIND (C option) = 190 
FREFBUEF 180 
FREEPOOL 181 
GETBUE 180 
PRTOV T11-113 
MBBCCHRR, convert address routine 192 
module name directory 237-241 
module selector 
appendages (Figure 14) 89 
Check modules (Figure 19) 124 
Close executors (Figure 27) 172 
Control routines 
BSAM (Figure 20) 129 
QSAM/BSAM (Figure 16) 112 
end-of-block modules 
chained scheduling (Figure 9) 66 
ordinary (Figure 7) §§ 
track overflow (Figure 12) 78 
error processing modules (Figure 14) 85 
Get modules 
simple-buffering (Figure 1) 19 
update-mode (Figure §) 36 
Open executors 
stage [ (Figure 24) 138 
stage 2 (Figure 24) 149 
stage 7 (Figure 26) 16S 
Put modules 
simple-buffering (Figure 6) 42 
update-mode. PUTT (Figure $1 36 
Read modules (Figure 1X) 11S 
syachronizing and error processing modules 
(Figure 13) 79 
Write-modules (Figure PX) 11S 
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module selector tables (see module selector) 
module type 
(as listed in the directory) 237-241 
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name (module) directory 237-241 
new buffer (see empty buffer Put routines; full buffer Get 
routines) 
new buffer segment (Put routines) 
simple-buffering 40-52 
update-mode (PUTX) 33-40 
New programming support 
3800 printing subsystem [1 
nest record (Get routings) 
simple-buffering 17-32 
updale-mode 33-40 
non-rolational position sensing indicalor (see rotational 
position sensing, Open executors) 
NOTE mitcro instruction 
BSAM/BPAM overview (Diagram A) 207 
BSAM control routines 128-134 
Note/Pornt routines 
BSAM control routines 128-134 
chained scheduling 133 
normal scheduling 128-132 
track overflow 132 
update mode 132-133 
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OMR (optical mark read) (see 3505/3525) 
Open executors, SAM 
forthe 3800 printer 144,145 
introduction to 136 
Stage | 136-148 
Stape 2 148-163 
Stage 3163-171 
OPEN macro instruction 
general flow (Diagram D) 213 
SAM overview (Diagram A) 207 


| OPTCD=J and the 3800 printer 58.59.70 


OPTCD=7 (see search direct) 
optical mark read (see 3505/3525) 
optional, access method (see module selector) 
OS/DOS tape compatibility 

appendages [02-104 

BSAM control routines 130-133 

Get routines 17 

synchronizing-and-error processing routines 81 
OUTIN mode 

end-of-block routines 53-64 

Stage 2 open executors 148-163 
overview. SAM (Diagram A) 207 


P 


puper tape channel-end appendage 100-101 
paper tape character conversion routines 

Check routine 125 

Get routine 26 

Read routine 116-117 

stage 2 open executor 151 

stage Jopen cxecutor 166 

synchronizing and error processing routine 26 
paper tape code conversion modules 

(Appendix A) 263-264 
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parallel data address block 32 
parallel input processing routine 32 
parting chained channel-programs, appendage — 106-107 
PCl appendages 106-108 
POINT macro instruction 
BSAM/BPAM overview (Diagram Ad 207 
BSAM control routines 128-134 
Point routines (see Note/ Point routines) 
priming input buffers 
introduction to 
simple-buffering 17 
update-mode 33 
stage 3 open executor 163 
printer (see 3203 printer, 3201 Printer, 1403 Printer, or 
3505/3525) 
printer overflow macro eapansion 
(PRTOV) U13 
problem determination [83-184 
processing program 
relation to SAM routines (Diagram A) 207 
using BPAM routines 134 
program controlled interruption, appendages 106-108 
Program organization, diagrams for 
BPAM routines (Diagram C) 211 
BSAM routines (Diagram ©) 211 
Open executors (Diagram D) 213 
QSAM routines (Diagram B) 209 
SAM routines (Diagram A) 207 
SAM-SI (Diagram M) 231 
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PRTOV macro instruction 
appendage 94 
BSAM_ 128 
end-of-block routines $8-S9 
QSAM III-I13 
PUT macro instruction 
introduction to Put routines 40 
Put routines 453 
Put routines 
simple-buffering 4+S2 
update-mode (PUTX) 2-53 
PUT X macro instruction 
overview (Diagrams A,B) 207.209 
Put routines 40-53 
PUTX routine 
simple-buffering 40-52 
updale mode 
Get routine 34-37 
PUTX $2-53 
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QSAM 

control blocks 255 

control routines TTI 

flow of control (Diagram EB) 215 

introduction to) PS.17 

module selector for 
simple-buffering, Get (Figure 1) 19 
simple-buffering. Put (Figure 6) 42 
update-mode. Get (Figure §) 36 
update-mode, PUTX (Figure $) 36 

overview (Diagram Ab 207 
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routines 

appendages 87-111 

Control 111-113 

end-of-block 53-74 

Get 17-40 

Put 40-53 

synchronizing-and-error-processing routines 77-87 
queued sequential access method (see QSAM) 
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READ macro instruction 
BSAM/BPAM (Diagram C) 211 
Read routines (Figure 18) 114-123 
Read routines 
BSAM/BPAM (Diagram C) 211 
descriptions (Figure 18) 114123 
readback mode, Get routines (Figure 1) 19,23-25 
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RELSE macro instruction 
Get routines 18-40 
overview (Diagram A) 207 
RELSE routines 
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simple-buffering 17-32 
update mode 33-40 
return codes from SETPRT executors 262-262.2 
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appendages 
channel-end 94-95,98-99 
end-of-extent 90 
PCI 107 
SIO 94 
channel programs (Appendixes B,C,D,E) 265-293 
Get routines 
update mode 36 
Open executors 
introduction 136 
Read/Write routines 114-123 
stage 2 148-163 
Stage 3 163 
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appendages 87-111 
buffer pool management 178-183 
executors 135 
effect of BLDLTAB 
force close executor 177-178 
introduction to 15 
overview (Diagram A) 207 
Register Saving Convention 262.2 
SAM-SI (SAM subsystem interface) 
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introduction to 15 
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Get routine 28 
Put routine 48 
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Check routines 123-125 
Read, Write routines 122-123 
scheduling (see chained channel-program scheduling; 
end-of-block routines) 
SDW (see segment descriptor word) 
search direct (OPTCD=Z) 
appendages (Figure 15) 89 
channel programs (Appendix B) 265-273 
stage 1 Openexecutors 138 
stage 2 Openexecutors 150 
stage 3 Openexecutors 168-171 
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addressing 34 
seek address in QSAM update mode 3435 
segment descriptor word (SDW) 
Get routines 27-32,38 
Put routines 450-52 
sequential access methods (see SAM) 
sequential access method executors (see executors, SAM) 
SETDEV routine 200 
SETPRT 
executors 200-200.3 
messages 262-262.4 
return codes 262-262.4 
selector 197.1 
inTRR 204-205 
parameter list 254 
QSAM/BSAM overview (Diagram A) 207 
routines 197-200 
work areas 244-244.4 
simple buffering 
Get routines 17-32 
Put routines 40-52 
SIO appendages 93-94 
Space magnetic tape 
BSP routine 187-188 
Control routine 131 
spanned records 
Get routines 27-32 
Put routines 48-52 
stage 1 Open executors 
descriptions 136-148 
flow of control (Diagram E) 215 
module selector (Figure 24) 138 
stage 2 Open executors 
descriptions 148-163 
flow of control (Diagram E) 215 
module selector (Figure 25) 149 
stage 3 Open executors 
descriptions 163-171 
flow of control (Diagram E) 215 
module selector (Figure 26) 165 
start I/O (SIO) appendages 93-94 
STOW routines 188-190 
inTRR 201 
SVC routines 
descriptions 184-200 
directory entries 237 
SVRB extended save area 244.4 
SYNAD/EOV executor 
flow of control (overview) 
BSAM (Diagram I) 223 
QSAM (Diagram H) 221 
SYNAD routine, FEOV executor 
_ QSAM operation for output data set (Diagram J) 225 
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SYNADAF/SYNADRLS routines 192-197 
in TRR 202-204 
synchronizing-and-error-processing routines 
asynchronous-error-processing 85-87 
introduction to 77-78 
QSAM (Figure 13) 79-84 
track overflow 85-86 


3203 or 3211 printer asynchronous-error-processing 86-87 
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tables (see module selector) 

tape compatibility, OS/DOS 
appendages 102-104 
Control routines 130-133 
Get routines 17 


synchronizing-and-error-processing routines 81 


task recovery routines (TRR) 
SVC 18—BLDL or FIND 201 
SVC 21—STOW 201 
SVC 24—DEVTYPE 202 


SVC 25—track balance, track overflow erase 202 


SVC 68—SYNADAF/SYNADRLS 202-204 
SVC 69—BSP 204 
SVC 81—SETPRT 204-205 
SVC105—IMGLIB 205-206 
track balance routine 186 
inTRR 202 
track erase routine 186 
track overflow 
abnormal end appendage 108-111 
create-BDAM write routine 121-122 
end-of-block routine 74-77 
Erase routine 186 
error processing routine 85-86 
in TRR 202 
introduction to 74 
stage 2 Open executors 151,153-157 
stage 3 Openexecutor 166,167 
translate routine, IGCO0O10C (Appendix A) 264 
TRKCALC macro 192 
TRUNC macro instruction 
overview (Diagram A) 207 
Put routines 40-53 
TRUNC routines 
description (Put routines) 43-53 
simple-buffering 40-52 
TTR, convert address routine 191-192 
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UCS feature, printer 
stage 1 Openexecutors 136-147 
unblocked records 
Get routines 
simple-buffering 17-19 
update mode 33 
Put routines 
simple-buffering 40-42 


universal character set (see UCS feature, printer) 
update channel programs (Appendix C) 275-279 


update mode 
appendages 
end-of-extent 88-93 
SIO 93-94 
Check routine 126 
Get routines 33-40 
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Note/Point routine 132-133 
PUTX routine 52-53 
Read/Write routine 117 
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stage 3 Openexecutors 164-166 
synchronizing routine 79-81 
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access method save area 254 
end-of-block modules 74-77 
stage 1 Openexecutors 137-145 
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WRITE macro instruction 
BSAM/BPAM (Diagram C) 211 
Write routines 114-123 

Write routines 
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descriptions 114-123 
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XLATE macro instruction (Appendix A) 264 
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1403 Printer 
Open executor, stage 1 136-148 
2520/2540 card read punch 
consideration of DCBBUFNO field 144 
3203 or 3211 Printer 
appendage 108,111-112 
asynchronous-error-processing module 86 
Open executor, stage 1 136-148 
Open executor, stage 3 167 
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Close executors (Figure 27) 172 
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EOB modules 56-62 
line control (Figure 16) 112 
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new programming support 11 
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